re PR fortran/54678 (second call to get_environment_variable gives valgrind…

re PR fortran/54678 (second call to get_environment_variable gives valgrind warning with 8-byte integers)

2013-01-06  Tobias Burnus  <burnus@net-b.de>

        PR fortran/54678
        * intrinsics/env.c (get_environment_variable_i8): Don't use
        uninitialized variable.

From-SVN: r194948

libgfortran/ChangeLog

+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

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;