mirror/gcc
1
0
Fork 0
mirror of https://github.com/gcc-mirror/gcc.git synced 2024-11-21 13:40:47 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

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

From-SVN: r118613
This commit is contained in:
Steven G. Kargl 2006-11-09 03:57:44 +00:00
parent 54938c1127
commit 474e88dd75
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libgfortran/ChangeLog
View File

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

2
libgfortran/io/read.c
View File

@ -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)
{