Hi,
I committed the attached patch as obvious to trunk after the RM
considered it OK in the PR.
Index: runtime/main.c
===================================================================
--- runtime/main.c (revision 183089)
+++ runtime/main.c (working copy)
@@ -116,8 +116,10 @@ store_exe_path (const char * argv0)
memset (buf, 0, sizeof (buf));
#ifdef HAVE_GETCWD
cwd = getcwd (buf, sizeof (buf));
+ if (!cwd)
+ cwd = ".";
#else
- cwd = "";
+ cwd = ".";
#endif
/* exe_path will be cwd + "/" + argv[0] + "\0". This will not work
Index: ChangeLog
===================================================================
--- ChangeLog (revision 183089)
+++ ChangeLog (working copy)
@@ -1,3 +1,9 @@
+2012-01-11 Janne Blomqvist <j...@gcc.gnu.org>
+ Mike Stump <mikest...@comcast.net>
+ PR libfortran/51803
+ * runtime/main.c (store_exe_path): Handle getcwd failure and lack
+ of the function better.
+
2012-01-10 Tobias Burnus <bur...@net-b.de>
PR fortran/51197
--
Janne Blomqvist
