OSDN Git Service

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