diff options
| author | cvs2svn <cvs2svn@FreeBSD.org> | 2001-03-19 20:56:12 +0000 |
|---|---|---|
| committer | cvs2svn <cvs2svn@FreeBSD.org> | 2001-03-19 20:56:12 +0000 |
| commit | dc54a98d057114b4701ceeceeeb16f446ade4cf4 (patch) | |
| tree | 797d608e70dda10b0da9a4097457ac5fd8f1bc60 /contrib/libf2c/libF77/main.c | |
| parent | 06b8915d1faf919850dd08fb24caab3f447e37b6 (diff) | |
This commit was manufactured by cvs2svn to create tagvendor/gcc/2.95.3
'gcc-vendor-gcc_2_95_3'.
Diffstat (limited to 'contrib/libf2c/libF77/main.c')
| -rw-r--r-- | contrib/libf2c/libF77/main.c | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/contrib/libf2c/libF77/main.c b/contrib/libf2c/libF77/main.c deleted file mode 100644 index 17bf449e4024..000000000000 --- a/contrib/libf2c/libF77/main.c +++ /dev/null @@ -1,68 +0,0 @@ -/* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */ - -#include <stdio.h> -#include "signal1.h" - -#ifndef KR_headers -#undef VOID -#include <stdlib.h> -#endif - -#ifndef VOID -#define VOID void -#endif - -#ifdef __cplusplus -extern "C" { -#endif - -#ifdef NO__STDC -#define ONEXIT onexit -extern VOID f_exit(); -#else -#ifndef KR_headers -extern void f_exit(void); -#ifndef NO_ONEXIT -#define ONEXIT atexit -extern int atexit(void (*)(void)); -#endif -#else -#ifndef NO_ONEXIT -#define ONEXIT onexit -extern VOID f_exit(); -#endif -#endif -#endif - -#ifdef KR_headers -extern VOID f_init(); -extern int MAIN__(); -#else -extern void f_init(void); -extern int MAIN__(void); -#endif - -#ifdef __cplusplus - } -#endif - -#ifdef KR_headers -main(argc, argv) int argc; char **argv; -#else -main(int argc, char **argv) -#endif -{ -f_setarg(argc, argv); -f_setsig(); -f_init(); -#ifndef NO_ONEXIT -ONEXIT(f_exit); -#endif -MAIN__(); -#ifdef NO_ONEXIT -f_exit(); -#endif -exit(0); /* exit(0) rather than return(0) to bypass Cray bug */ -return 0; /* For compilers that complain of missing return values; */ - /* others will complain that this is unreachable code. */ -} |
