From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sat, 15 Jan 2011 06:42:30 +0000 (+0000)
Subject: re PR fortran/47296 (I/O Segfault when running out of file descriptors)
X-Git-Tag: releases/gcc-4.6.0~1220
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=050d1a59d1568b0dc701a5a48409c847e26d4ee1;p=thirdparty%2Fgcc.git

re PR fortran/47296 (I/O Segfault when running out of file descriptors)

2011-01-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/47296
	* io/unix.c (unpack_filename): Return non-zero if the filename passed
	in is NULL.

From-SVN: r168832
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 6f116bd969eb..4c2d185f91dd 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2011-01-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/47296
+	* io/unix.c (unpack_filename): Return non-zero if the filename passed
+	in is NULL.
+
 2011-01-04  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libgfortran/47154
diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c
index a384f7bcc37d..e66560f5839b 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;