// address: 8048824 int main(int argc, char *argv[], char *envp[]) { __size32 local0; // m[esp - 40] f_setarg(); f_setsig(); f_init(); atexit(); MAIN__(local0); exit(0); return; }
int main(int argc, char ** argv) { #if G77 #pragma message "We assume that the default fortran compiler is g77" f_setarg(argc, argv); f_setsig(); f_init(); #endif #if GFORT #pragma message "We assume that the default fortran compiler is gfortran" _gfortran_set_args (argc, argv); #endif MAIN__(); return 0; /* For compilers that complain of missing return values; */ }
int main (int argc, char **argv) { 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. */ }