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