2.9BSD - /usr/src/lib/libF77/abort_.c

   1: /*
   2:  *	"@(#)abort_.c	1.1"
   3:  */
   4: 
   5: #include <stdio.h>
   6: 
   7: #if pdp11
   8: abort_()
   9: {
  10:     fprintf(stderr, "Fortran abort routine called\n");
  11:     f_exit();
  12:     _cleanup();
  13:     abort();
  14: }
  15: #else   vax
  16: abort_(msg,len)
  17: char *msg; int len;
  18: {
  19:     fprintf(stderr, "abort: ");
  20:     if (nargs()) while (len-- > 0) fputc(*msg++, stderr);
  21:     else fprintf(stderr, "called");
  22:     fputc('\n', stderr);
  23:     f_exit();
  24:     _cleanup();
  25:     abort();
  26: }
  27: #endif	vax

Defined functions