From: uros <uros@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 25 Nov 2014 18:29:42 +0000 (+0000)
Subject: 	* intrinsics/env.c (getenv): Remove unused variable res_len.
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=4aaf92404640b14a047c8e8582cfe3412f864233;p=thirdparty%2Fgcc.git

	* 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
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 1a1f937c6bb2..367eb53f7e73 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2014-11-25  Uros Bizjak  <ubizjak@gmail.com>
+
+	* intrinsics/env.c (getenv): Remove unused variable res_len.
+
 2014-11-24  John David Anglin  <danglin@gcc.gnu.org>
 
 	* configure.ac: Guard include of <ieeefp.h>.
diff --git a/libgfortran/intrinsics/env.c b/libgfortran/intrinsics/env.c
index ffdc54ac42f7..48ae43ca5c98 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.");