/*- * Copyright (c) 1980 The Regents of the University of California. * All rights reserved. * * This module is believed to contain source code proprietary to AT&T. * Use and redistribution is subject to the Berkeley Software License * Agreement and your Software Agreement with AT&T (Western Electric). */ #ifndef lint static char sccsid[] = "@(#)abort_.c 5.3 (Berkeley) 4/12/91"; #endif /* not lint */ #include <stdio.h> #if pdp11 abort_() { fprintf(stderr, "Fortran abort routine called\n"); f_exit(); _cleanup(); abort(); } #else vax || tahoe 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); f77_abort(); } #endif vax || tahoe