* combine.c (combine_max_regno): Remove. Remove all uses.

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

diff --git a/libgfortran/fmain.c b/libgfortran/fmain.c
index ec62125..397f17b 100644 (file)
--- a/libgfortran/fmain.c
+++ b/libgfortran/fmain.c
@@ -10,9 +10,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__ ();