date and time created 83/01/21 11:02:38 by dlw

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

/*
*      "@(#)abort_.c   1.1"
*/

#include <stdio.h>

#if     pdp11
abort_()
{
       fprintf(stderr, "Fortran abort routine called\n");
       f_exit();
       _cleanup();
       abort();
}
#else   vax
abort_(msg,len)
char *msg; int len;
{
       fprintf(stderr, "abort: ");
       if (nargs()) while (len-- > 0) fputc(*msg++, stderr);
       else fprintf(stderr, "called");
       fputc('\n', stderr);
       f_exit();
       _cleanup();
       abort();
}
#endif  vax