2009-04-10 Thomas Quinot <quinot@adacore.com>

[pf3gnuchains/gcc-fork.git] / libgfortran / fmain.c

diff --git a/libgfortran/fmain.c b/libgfortran/fmain.c
index ec62125..1d6b45e 100644 (file)
--- a/libgfortran/fmain.c
+++ b/libgfortran/fmain.c
@@ -1,4 +1,3 @@
-#include "config.h"
 #include "libgfortran.h"
 
 /* The main Fortran program actually is a function, called MAIN__.
@@ -10,9 +9,13 @@ void MAIN__ (void);
 int
 main (int argc, char *argv[])
 {
+  /* Store the path of the executable file.  */
+  store_exe_path (argv[0]);
+
   /* Set up the runtime environment.  */
   set_args (argc, argv);
 
+
   /* Call the Fortran main program.  Internally this is a function
      called MAIN__ */
   MAIN__ ();