diff options
| author | uros <uros@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-11-25 18:29:42 +0000 |
|---|---|---|
| committer | uros <uros@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-11-25 18:29:42 +0000 |
| commit | 4aaf92404640b14a047c8e8582cfe3412f864233 (patch) | |
| tree | 5cc0897a7041b62233106625033e8e36f88a7026 /libgfortran/intrinsics | |
| parent | d7b1bb7179d066572d61d136663b0de70c7624c9 (diff) | |
| download | gcc-4aaf92404640b14a047c8e8582cfe3412f864233.tar.gz | |
* intrinsics/env.c (getenv): Remove unused variable res_len.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@218057 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/intrinsics')
| -rw-r--r-- | libgfortran/intrinsics/env.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/libgfortran/intrinsics/env.c b/libgfortran/intrinsics/env.c index ffdc54ac42f..48ae43ca5c9 100644 --- a/libgfortran/intrinsics/env.c +++ b/libgfortran/intrinsics/env.c @@ -42,7 +42,6 @@ PREFIX(getenv) (char * name, char * value, gfc_charlen_type name_len, { char *name_nt; char *res = NULL; - int res_len; if (name == NULL || value == NULL) runtime_error ("Both arguments to getenv are mandatory."); |