X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=libgfortran%2Fio%2Funix.c;h=e66560f5839b1c5ea75c9209b0cd74836e193a6b;hp=a384f7bcc37d89e46c7553b6902fbb54112da1a0;hb=d6e407223a35ef50b36f1d257a80eb358677bd31;hpb=dee74d2ba3c045ae57d2be35f6e3a0be61e5434a

diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c
index a384f7bcc37..e66560f5839 100644
--- a/libgfortran/io/unix.c
+++ b/libgfortran/io/unix.c
@@ -1000,6 +1000,8 @@ unit_to_fd (int unit)
 int
 unpack_filename (char *cstring, const char *fstring, int len)
 {
+  if (fstring == NULL)
+    return 1;
   len = fstrlen (fstring, len);
   if (len >= PATH_MAX)
     return 1;