110433Sdlw /* 2*20187Slibs * "@(#)abort_.c 1.2" 310433Sdlw */ 410433Sdlw 510433Sdlw #include <stdio.h> 610433Sdlw 710433Sdlw #if pdp11 810433Sdlw abort_() 910433Sdlw { 1010433Sdlw fprintf(stderr, "Fortran abort routine called\n"); 1110433Sdlw f_exit(); 1210433Sdlw _cleanup(); 1310433Sdlw abort(); 1410433Sdlw } 1510433Sdlw #else vax 1610433Sdlw abort_(msg,len) 1710433Sdlw char *msg; int len; 1810433Sdlw { 1910433Sdlw fprintf(stderr, "abort: "); 2010433Sdlw if (nargs()) while (len-- > 0) fputc(*msg++, stderr); 2110433Sdlw else fprintf(stderr, "called"); 2210433Sdlw fputc('\n', stderr); 23*20187Slibs f77_abort(); 2410433Sdlw } 2510433Sdlw #endif vax 26