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 /libgfortran/intrinsics | |
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
Diffstat (limited to 'libgfortran/intrinsics')
-rw-r--r-- | libgfortran/intrinsics/string_intrinsics.c | 2 |
1 files changed, 2 insertions, 0 deletions
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; } |