Bell 32V development

[unix-history] / usr / src / libF77 / main.c

/* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */

#include <stdio.h>
#include <signal.h>

int xargc;
char **xargv;

main(argc, argv, arge)
int argc;
char **argv;
char **arge;
{
int sigfdie(), sigidie();

xargc = argc;
xargv = argv;
signal(SIGFPE, sigfdie);        /* ignore underflow, enable overflow */
signal(SIGIOT, sigidie);
MAIN__();
f_exit();
}


static sigfdie()
{
sigdie("Floating Exception");
}



static sigidie()
{
sigdie("IOT Trap");
}



static sigdie(s)
register char *s;
{
/* print error message, then clear buffers */
fflush(stderr);
fprintf(stderr, "%s\n", s);
f_exit();
fflush(stderr);

/* now get a core */
signal(SIGIOT, 0);
abort();
}