]> git.ipfire.org Git - thirdparty/gcc.git/blob - libgfortran/fmain.c
i386.c (ix86_eax_live_at_start_p): Use df_get_live_out.
[thirdparty/gcc.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 }