diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2017-01-03 20:01:30 +0200 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2017-01-03 20:01:30 +0200 |
| commit | 84aff3c2d4b487fe93f5caa6351c47d56145a6a1 (patch) | |
| tree | 09d627d26346335c50d501ba2f2e2f39094071bc /libgfortran/intrinsics/env.c | |
| parent | 47f2abdd0d8bc3a760041149a93e35bc5db9d54e (diff) | |
| download | gcc-84aff3c2d4b487fe93f5caa6351c47d56145a6a1.zip gcc-84aff3c2d4b487fe93f5caa6351c47d56145a6a1.tar.gz gcc-84aff3c2d4b487fe93f5caa6351c47d56145a6a1.tar.bz2 | |
PR 78534 Revert r244011
r244011 caused regressions on 32-bit hosts.
From-SVN: r244027
Diffstat (limited to 'libgfortran/intrinsics/env.c')
| -rw-r--r-- | libgfortran/intrinsics/env.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libgfortran/intrinsics/env.c b/libgfortran/intrinsics/env.c index f8e7758..f8e376e 100644 --- a/libgfortran/intrinsics/env.c +++ b/libgfortran/intrinsics/env.c @@ -93,8 +93,7 @@ get_environment_variable_i4 (char *name, char *value, GFC_INTEGER_4 *length, gfc_charlen_type name_len, gfc_charlen_type value_len) { - int stat = GFC_SUCCESS; - gfc_charlen_type res_len = 0; + int stat = GFC_SUCCESS, res_len = 0; char *name_nt; char *res; |