OSDN Git Service

* fmain.c (main): Don't PREFIX set_args.
[pf3gnuchains/gcc-fork.git] / libgfortran / fmain.c
1 #include "libgfortran.h"
2
3 /* The main Fortran program actually is a function, called MAIN__.
4    We call it from the main() function in this file.  */
5 void MAIN__ (void);
6
7 /* Main procedure for fortran programs.  All we do is set up the environment
8    for the Fortran program.  */
9 int
10 main (int argc, char *argv[])
11 {
12   /* Set up the runtime environment.  */
13   set_args (argc, argv);
14
15   /* Call the Fortran main program.  Internally this is a function
16      called MAIN__ */
17   MAIN__ ();
18
19   /* Bye-bye!  */
20   return 0;
21 }