This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[Committed] libgfortran/io/read.c -- hide "int n"
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: fortran at gcc dot gnu dot org, gcc-patches at gcc dot gnu dot org
- Date: Wed, 8 Nov 2006 19:56:12 -0800
- Subject: [Committed] libgfortran/io/read.c -- hide "int n"
I've committed the following patch as "obvious" to trunk.
2006-11-08 Steven G. Kargl <kargl@gcc.gnu.org>
* io/read. (max_value): Hide "int n" in an #ifdef.
Index: read.c
===================================================================
--- read.c (revision 118612)
+++ read.c (working copy)
@@ -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)
{
--
Steve