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