From d6e407223a35ef50b36f1d257a80eb358677bd31 Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Sat, 15 Jan 2011 06:42:30 +0000 Subject: [PATCH] 2011-01-14 Jerry DeLisle PR libgfortran/47296 * io/unix.c (unpack_filename): Return non-zero if the filename passed in is NULL. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@168832 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/unix.c | 2 ++ 2 files changed, 8 insertions(+) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 6f116bd969e..4c2d185f91d 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2011-01-14 Jerry DeLisle + + PR libgfortran/47296 + * io/unix.c (unpack_filename): Return non-zero if the filename passed + in is NULL. + 2011-01-04 Jerry DeLisle PR libgfortran/47154 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; -- 2.11.0