From 474e88dd75cac2080f5ed73d92a1a0a52c8a04ea Mon Sep 17 00:00:00 2001
From: "Steven G. Kargl" <kargl@gcc.gnu.org>
Date: Thu, 9 Nov 2006 03:57:44 +0000
Subject: [PATCH] 2006-11-08  Steven G. Kargl <kargl@gcc.gnu.org>

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

From-SVN: r118613
---
 libgfortran/ChangeLog | 4 ++++
 libgfortran/io/read.c | 2 ++
 2 files changed, 6 insertions(+)

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index f8a16721ff8..57adbe0fbdc 100644
--- 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 9477425e659..57a58929d4a 100644
--- 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)
     {