Bell 32V development

[unix-history] / usr / src / libF77 / abort_.c

#include <stdio.h>

abort_()
{
fprintf(stderr, "Fortran abort routine called\n");
_cleanup();
abort();
}