2006-11-08 Steven G. Kargl <kargl@gcc.gnu.org>

    * io/read. (max_value): Hide "int n" in an #ifdef.

From-SVN: r118613

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index f8a16721ff80fc34b9a22bbe0f1578a4cfb9324f..57adbe0fbdc2766c2b5ca0bcaebd833546a4b8bb 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2006-11-08  Steven G. Kargl <kargl@gcc.gnu.org>
+
+       * io/read. (max_value): Hide "int n" in an #ifdef.
+
 2006-11-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libgfortran/29752

diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c
index 9477425e659173320173f60ca03b67e2fbefedd0..57a58929d4a9d28283102770121e2a2c783cfd19 100644 (file)
--- a/libgfortran/io/read.c
+++ b/libgfortran/io/read.c
@@ -92,7 +92,9 @@ GFC_UINTEGER_LARGEST
 max_value (int length, int signed_flag)
 {
   GFC_UINTEGER_LARGEST value;
+#if defined HAVE_GFC_REAL_16 || defined HAVE_GFC_REAL_10
   int n;
+#endif
 
   switch (length)
     {