diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-05-16 00:37:55 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-05-16 00:37:55 +0000 |
| commit | d5638e6e67baa1bff33c9808c8a12ed7ca11042a (patch) | |
| tree | 57d0801d232f09e6266762a6182bc0e4ff20cfef | |
| parent | 86977b7206f6187e1544fc62fb9cf1598885151c (diff) | |
| download | gcc-d5638e6e67baa1bff33c9808c8a12ed7ca11042a.zip gcc-d5638e6e67baa1bff33c9808c8a12ed7ca11042a.tar.gz gcc-d5638e6e67baa1bff33c9808c8a12ed7ca11042a.tar.bz2 | |
re PR fortran/31922 ([4.2 only] Accessing uninitialized variable for print *, trim(blank_string))
2007-05-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/31922
* intrinsics/string_intrinsics.c (string_trim): Set result to null if
string length is zero.
From-SVN: r124754
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/intrinsics/string_intrinsics.c | 2 |
2 files changed, 8 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index dec751f..531787f 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2007-05-15 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/31922 + * intrinsics/string_intrinsics.c (string_trim): Set result to null if + string length is zero. + 2007-05-15 Tobias Burnus <burnus@net-b.de> PR libfortran/31915 diff --git a/libgfortran/intrinsics/string_intrinsics.c b/libgfortran/intrinsics/string_intrinsics.c index 1a4b159..7c22c16 100644 --- a/libgfortran/intrinsics/string_intrinsics.c +++ b/libgfortran/intrinsics/string_intrinsics.c @@ -171,6 +171,8 @@ string_trim (GFC_INTEGER_4 * len, void ** dest, GFC_INTEGER_4 slen, /* copy string if necessary. */ memmove (*dest, src, *len); } + else + *dest = NULL; } |