diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index d4a34c52475..ebfdf068a91 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2009-05-27  Janne Blomqvist  <jb@gcc.gnu.org>
+
+	PR fortran/39178
+	* runtime/main.c (store_exe_path): Remove static attribute.
+	* libgfortran.h: Add back store_exe_path prototype.
+
 2009-05-27  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	PR libfortran/40187
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h
index 85b454d1c32..3591fa9c279 100644
--- a/libgfortran/libgfortran.h
+++ b/libgfortran/libgfortran.h
@@ -610,6 +610,9 @@ export_proto(set_args);
 extern void get_args (int *, char ***);
 internal_proto(get_args);
 
+extern void store_exe_path (const char *);
+export_proto(store_exe_path);
+
 extern char * full_exe_path (void);
 internal_proto(full_exe_path);
 
diff --git a/libgfortran/runtime/main.c b/libgfortran/runtime/main.c
index 6df2775d26e..3f3d4947b26 100644
--- a/libgfortran/runtime/main.c
+++ b/libgfortran/runtime/main.c
@@ -74,7 +74,7 @@ static int please_free_exe_path_when_done;
 
 /* Save the path under which the program was called, for use in the
    backtrace routines.  */
-static void
+void
 store_exe_path (const char * argv0)
 {
 #ifndef PATH_MAX