diff options
author | Diego Novillo <dnovillo@redhat.com> | 2004-05-13 06:41:07 +0000 |
---|---|---|
committer | Diego Novillo <dnovillo@redhat.com> | 2004-05-13 06:41:07 +0000 |
commit | 60ac8927839c69492fc46bf03880f34820cc0570 (patch) | |
tree | a2568888a519c077427b133de9ece5879a8484a5 /libgfortran/fmain.c | |
parent | fb7359384dbf6f77df81d6bc73b0b5943c52e6d6 (diff) |
Merge tree-ssa-20020619-branch into mainline.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@81764 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/fmain.c')
-rw-r--r-- | libgfortran/fmain.c | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/libgfortran/fmain.c b/libgfortran/fmain.c new file mode 100644 index 00000000000..ec621256df1 --- /dev/null +++ b/libgfortran/fmain.c @@ -0,0 +1,22 @@ +#include "config.h" +#include "libgfortran.h" + +/* The main Fortran program actually is a function, called MAIN__. + We call it from the main() function in this file. */ +void MAIN__ (void); + +/* Main procedure for fortran programs. All we do is set up the environment + for the Fortran program. */ +int +main (int argc, char *argv[]) +{ + /* Set up the runtime environment. */ + set_args (argc, argv); + + /* Call the Fortran main program. Internally this is a function + called MAIN__ */ + MAIN__ (); + + /* Bye-bye! */ + return 0; +} |