[unix-history] / usr / src / usr.bin / f77 / libF77 / abort_.c

/*
 *	"@(#)abort_.c	1.1"
 */

#include <stdio.h>

#if	pdp11
abort_()
{
	fprintf(stderr, "Fortran abort routine called\n");
	f_exit();
	_cleanup();
	abort();
}
#else	vax
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);
	f_exit();
	_cleanup();
	abort();
}
#endif	vax
Commit	Line	Data
2788de35 DW	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