diff options
| author | Tobias Burnus <burnus@net-b.de> | 2013-01-06 12:43:45 +0000 |
|---|---|---|
| committer | Tobias Burnus <burnus@net-b.de> | 2013-01-06 12:43:45 +0000 |
| commit | 4a05aa10b878087769b7e519db3533b623ccd9dd (patch) | |
| tree | 2660a1daa2a71548d71f5abd1a57c7415f440b52 /libgfortran | |
| parent | d590743b68b58c3c79670a1e2d4ecfe828c49807 (diff) | |
2013-01-06 Tobias Burnus <burnus@net-b.de>
PR fortran/54678
* intrinsics/env.c (get_environment_variable_i8): Don't use
uninitialized variable.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@194948 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/intrinsics/env.c | 3 |
2 files changed, 8 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index e7142d8f354..a5b4034dc38 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2013-01-06 Tobias Burnus <burnus@net-b.de> + + PR fortran/54678 + * intrinsics/env.c (get_environment_variable_i8): Don't use + uninitialized variable. + 2013-01-02 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libfortran/55818 diff --git a/libgfortran/intrinsics/env.c b/libgfortran/intrinsics/env.c index 8836038488a..252ee2f5c8a 100644 --- a/libgfortran/intrinsics/env.c +++ b/libgfortran/intrinsics/env.c @@ -185,7 +185,8 @@ get_environment_variable_i8 (char *name, char *value, GFC_INTEGER_8 *length, trim_name4 = *trim_name; get_environment_variable_i4 (name, value, &length4, &status4, - &trim_name4, name_len, value_len); + trim_name ? &trim_name4 : NULL, + name_len, value_len); if (length) *length = length4; |