X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=libgfortran%2Fruntime%2Fmain.c;h=86777d9c70e34ea8911c52a2ad503d46e7f09fd9;hp=be12c591529e92c69fb59ed33a6722ff9a083d6a;hb=e0582811ed1518fc811f46d85585cba6e29f7027;hpb=4af80cde4854a2046aab66018a343345e3e19d7c

diff --git a/libgfortran/runtime/main.c b/libgfortran/runtime/main.c
index be12c591529..86777d9c70e 100644
--- a/libgfortran/runtime/main.c
+++ b/libgfortran/runtime/main.c
@@ -120,7 +120,11 @@ store_exe_path (const char * argv0)
     }
 
   memset (buf, 0, sizeof (buf));
+#ifdef HAVE_GETCWD
   cwd = getcwd (buf, sizeof (buf));
+#else
+  cwd = "";
+#endif
 
   /* exe_path will be cwd + "/" + argv[0] + "\0" */
   path = malloc (strlen (cwd) + 1 + strlen (argv0) + 1);