]> git.ipfire.org Git - thirdparty/gcc.git/blame - libgfortran/fmain.c
i386.c (ix86_eax_live_at_start_p): Use df_get_live_out.
[thirdparty/gcc.git] / libgfortran / fmain.c
CommitLineData
6de9cd9a
DN
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. */
6void MAIN__ (void);
7
8/* Main procedure for fortran programs. All we do is set up the environment
9 for the Fortran program. */
10int
11main (int argc, char *argv[])
12{
868d75db
FXC
13 /* Store the path of the executable file. */
14 store_exe_path (argv[0]);
15
6de9cd9a
DN
16 /* Set up the runtime environment. */
17 set_args (argc, argv);
18
868d75db 19
6de9cd9a
DN
20 /* Call the Fortran main program. Internally this is a function
21 called MAIN__ */
22 MAIN__ ();
23
24 /* Bye-bye! */
25 return 0;
26}