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

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 *
 *	@(#)abort_.c	5.2	%G%
 */

#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
Commit	Line	Data
2788de35	1	/*
777c3dd4 RE	2	* Copyright (c) 1980 Regents of the University of California.
	3	* All rights reserved. The Berkeley software License Agreement
	4	* specifies the terms and conditions for redistribution.
	5	*
af857331	6	* @(#)abort_.c 5.2 %G%
2788de35 DW	7	*/
	8
	9	#include <stdio.h>
	10
	11	#if pdp11
	12	abort_()
	13	{
	14	fprintf(stderr, "Fortran abort routine called\n");
	15	f_exit();
	16	_cleanup();
	17	abort();
	18	}
af857331	19	#else vax \|\| tahoe
2788de35 DW	20	abort_(msg,len)
	21	char *msg; int len;
	22	{
	23	fprintf(stderr, "abort: ");
	24	if (nargs()) while (len-- > 0) fputc(*msg++, stderr);
	25	else fprintf(stderr, "called");
	26	fputc('\n', stderr);
50fd198f	27	f77_abort();
2788de35	28	}
af857331	29	#endif vax \|\| tahoe