110433Sdlw /* 222808Skre * Copyright (c) 1980 Regents of the University of California. 322808Skre * All rights reserved. The Berkeley software License Agreement 422808Skre * specifies the terms and conditions for redistribution. 522808Skre * 6*29961Smckusick * @(#)abort_.c 5.2 11/03/86 710433Sdlw */ 810433Sdlw 910433Sdlw #include <stdio.h> 1010433Sdlw 1110433Sdlw #if pdp11 1210433Sdlw abort_() 1310433Sdlw { 1410433Sdlw fprintf(stderr, "Fortran abort routine called\n"); 1510433Sdlw f_exit(); 1610433Sdlw _cleanup(); 1710433Sdlw abort(); 1810433Sdlw } 19*29961Smckusick #else vax || tahoe 2010433Sdlw abort_(msg,len) 2110433Sdlw char *msg; int len; 2210433Sdlw { 2310433Sdlw fprintf(stderr, "abort: "); 2410433Sdlw if (nargs()) while (len-- > 0) fputc(*msg++, stderr); 2510433Sdlw else fprintf(stderr, "called"); 2610433Sdlw fputc('\n', stderr); 2720187Slibs f77_abort(); 2810433Sdlw } 29*29961Smckusick #endif vax || tahoe 30