Return to abort_.c CVS log

Up to [CSRG BSD Unix] / 42BSD / usr.lib / libF77

BSD 4.2

/*
 *	"@(#)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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.