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

#include <stdio.h>

abort_()
{
fprintf(stderr, "Fortran abort routine called\n");
_cleanup();
abort();
}
Commit	Line	Data
15eea6e6 BJ	1	#include <stdio.h>
	2
	3	abort_()
	4	{
	5	fprintf(stderr, "Fortran abort routine called\n");
	6	_cleanup();
	7	abort();
	8	}