[Bug fortran/54678] second call to get_environment_variable gives valgrind warning with 8-byte integers

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54678

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |burnus at gcc dot gnu.org

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-09-24 06:37:26 UTC ---
Draft patch:

--- a/libgfortran/intrinsics/env.c
+++ b/libgfortran/intrinsics/env.c
@@ -186,5 +186,6 @@ get_environment_variable_i8 (char *name, char *value,
GFC_INTEGER_8 *length,

   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)