4.3.0-0.2
This commit is contained in:
Jakub Jelinek
parent
56d2e81901
commit
293eaa4c37
197
gcc43-pr34427.patch
Normal file
197
gcc43-pr34427.patch
Normal file
@ -0,0 +1,197 @@
|
|||||||
|
2007-12-12 Jakub Jelinek <jakub@redhat.com>
|
||||||
|
|
||||||
|
PR libfortran/34427
|
||||||
|
|
||||||
|
Revert:
|
||||||
|
2007-12-08 Tobias Burnus <burnus@net-b.de>
|
||||||
|
|
||||||
|
PR fortran/34319
|
||||||
|
* io/list_read.c (parse_real, read_real): Support NaN/Infinity.
|
||||||
|
|
||||||
|
* gfortran.dg/nan_3.f90: New.
|
||||||
|
|
||||||
|
--- libgfortran/io/list_read.c (revision 130708)
|
||||||
|
+++ libgfortran/io/list_read.c (revision 130707)
|
||||||
|
@@ -1078,12 +1078,7 @@ parse_real (st_parameter_dt *dtp, void *
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!isdigit (c) && c != '.')
|
||||||
|
- {
|
||||||
|
- if (c == 'i' || c == 'I' || c == 'n' || c == 'N')
|
||||||
|
- goto inf_nan;
|
||||||
|
- else
|
||||||
|
- goto bad;
|
||||||
|
- }
|
||||||
|
+ goto bad;
|
||||||
|
|
||||||
|
push_char (dtp, c);
|
||||||
|
|
||||||
|
@@ -1141,13 +1136,6 @@ parse_real (st_parameter_dt *dtp, void *
|
||||||
|
|
||||||
|
exp2:
|
||||||
|
if (!isdigit (c))
|
||||||
|
- {
|
||||||
|
- if (c == 'i' || c == 'I' || c == 'n' || c == 'N')
|
||||||
|
- goto inf_nan;
|
||||||
|
- else
|
||||||
|
- goto bad;
|
||||||
|
- }
|
||||||
|
-
|
||||||
|
goto bad;
|
||||||
|
push_char (dtp, c);
|
||||||
|
|
||||||
|
@@ -1178,41 +1166,6 @@ parse_real (st_parameter_dt *dtp, void *
|
||||||
|
|
||||||
|
return m;
|
||||||
|
|
||||||
|
- inf_nan:
|
||||||
|
- /* Match INF and Infinity. */
|
||||||
|
- if ((c == 'i' || c == 'I')
|
||||||
|
- && ((c = next_char (dtp)) == 'n' || c == 'N')
|
||||||
|
- && ((c = next_char (dtp)) == 'f' || c == 'F'))
|
||||||
|
- {
|
||||||
|
- c = next_char (dtp);
|
||||||
|
- if ((c != 'i' && c != 'I')
|
||||||
|
- || ((c == 'i' || c == 'I')
|
||||||
|
- && ((c = next_char (dtp)) == 'n' || c == 'N')
|
||||||
|
- && ((c = next_char (dtp)) == 'i' || c == 'I')
|
||||||
|
- && ((c = next_char (dtp)) == 't' || c == 'T')
|
||||||
|
- && ((c = next_char (dtp)) == 'y' || c == 'Y')
|
||||||
|
- && (c = next_char (dtp))))
|
||||||
|
- {
|
||||||
|
- if (is_separator (c))
|
||||||
|
- unget_char (dtp, c);
|
||||||
|
- push_char (dtp, 'i');
|
||||||
|
- push_char (dtp, 'n');
|
||||||
|
- push_char (dtp, 'f');
|
||||||
|
- goto done;
|
||||||
|
- }
|
||||||
|
- } /* Match NaN. */
|
||||||
|
- else if (((c = next_char (dtp)) == 'a' || c == 'A')
|
||||||
|
- && ((c = next_char (dtp)) == 'n' || c == 'N')
|
||||||
|
- && (c = next_char (dtp)))
|
||||||
|
- {
|
||||||
|
- if (is_separator (c))
|
||||||
|
- unget_char (dtp, c);
|
||||||
|
- push_char (dtp, 'n');
|
||||||
|
- push_char (dtp, 'a');
|
||||||
|
- push_char (dtp, 'n');
|
||||||
|
- goto done;
|
||||||
|
- }
|
||||||
|
-
|
||||||
|
bad:
|
||||||
|
|
||||||
|
if (nml_bad_return (dtp, c))
|
||||||
|
@@ -1340,12 +1293,6 @@ read_real (st_parameter_dt *dtp, int len
|
||||||
|
eat_separator (dtp);
|
||||||
|
return;
|
||||||
|
|
||||||
|
- case 'i':
|
||||||
|
- case 'I':
|
||||||
|
- case 'n':
|
||||||
|
- case 'N':
|
||||||
|
- goto inf_nan;
|
||||||
|
-
|
||||||
|
default:
|
||||||
|
goto bad_real;
|
||||||
|
}
|
||||||
|
@@ -1420,12 +1367,7 @@ read_real (st_parameter_dt *dtp, int len
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!isdigit (c) && c != '.')
|
||||||
|
- {
|
||||||
|
- if (c == 'i' || c == 'I' || c == 'n' || c == 'N')
|
||||||
|
- goto inf_nan;
|
||||||
|
- else
|
||||||
|
- goto bad_real;
|
||||||
|
- }
|
||||||
|
+ goto bad_real;
|
||||||
|
|
||||||
|
if (c == '.')
|
||||||
|
{
|
||||||
|
@@ -1522,37 +1464,6 @@ read_real (st_parameter_dt *dtp, int len
|
||||||
|
dtp->u.p.saved_type = BT_REAL;
|
||||||
|
return;
|
||||||
|
|
||||||
|
- inf_nan:
|
||||||
|
- /* Match INF and Infinity. */
|
||||||
|
- if ((c == 'i' || c == 'I')
|
||||||
|
- && ((c = next_char (dtp)) == 'n' || c == 'N')
|
||||||
|
- && ((c = next_char (dtp)) == 'f' || c == 'F'))
|
||||||
|
- {
|
||||||
|
- c = next_char (dtp);
|
||||||
|
- if (is_separator (c)
|
||||||
|
- || ((c == 'i' || c == 'I')
|
||||||
|
- && ((c = next_char (dtp)) == 'n' || c == 'N')
|
||||||
|
- && ((c = next_char (dtp)) == 'i' || c == 'I')
|
||||||
|
- && ((c = next_char (dtp)) == 't' || c == 'T')
|
||||||
|
- && ((c = next_char (dtp)) == 'y' || c == 'Y')
|
||||||
|
- && (c = next_char (dtp)) && is_separator (c)))
|
||||||
|
- {
|
||||||
|
- push_char (dtp, 'i');
|
||||||
|
- push_char (dtp, 'n');
|
||||||
|
- push_char (dtp, 'f');
|
||||||
|
- goto done;
|
||||||
|
- }
|
||||||
|
- } /* Match NaN. */
|
||||||
|
- else if (((c = next_char (dtp)) == 'a' || c == 'A')
|
||||||
|
- && ((c = next_char (dtp)) == 'n' || c == 'N')
|
||||||
|
- && (c = next_char (dtp)) && is_separator (c))
|
||||||
|
- {
|
||||||
|
- push_char (dtp, 'n');
|
||||||
|
- push_char (dtp, 'a');
|
||||||
|
- push_char (dtp, 'n');
|
||||||
|
- goto done;
|
||||||
|
- }
|
||||||
|
-
|
||||||
|
bad_real:
|
||||||
|
|
||||||
|
if (nml_bad_return (dtp, c))
|
||||||
|
--- gcc/testsuite/gfortran.dg/nan_3.f90 (revision 130708)
|
||||||
|
+++ gcc/testsuite/gfortran.dg/nan_3.f90 (revision 130707)
|
||||||
|
@@ -1,45 +0,0 @@
|
||||||
|
-! { dg-do run }
|
||||||
|
-! { dg-options "-fno-range-check" }
|
||||||
|
-! { dg-options "-fno-range-check -mieee" { target sh*-*-* } }
|
||||||
|
-!
|
||||||
|
-! PR fortran/34319
|
||||||
|
-!
|
||||||
|
-! Check support of INF/NaN for I/O.
|
||||||
|
-!
|
||||||
|
-program main
|
||||||
|
- implicit none
|
||||||
|
- real :: r
|
||||||
|
- complex :: z
|
||||||
|
- character(len=30) :: str
|
||||||
|
-
|
||||||
|
- str = "nan"
|
||||||
|
- read(str,*) r
|
||||||
|
- if (.not.isnan(r)) call abort()
|
||||||
|
- str = "(nan,4.0)"
|
||||||
|
- read(str,*) z
|
||||||
|
- if (.not.isnan(real(z)) .or. aimag(z) /= 4.0) call abort()
|
||||||
|
- str = "(7.0,nan)"
|
||||||
|
- read(str,*) z
|
||||||
|
- if (.not.isnan(aimag(z)) .or. real(z) /= 7.0) call abort()
|
||||||
|
-
|
||||||
|
- str = "inFinity"
|
||||||
|
- read(str,*) r
|
||||||
|
- if (r <= huge(r)) call abort()
|
||||||
|
- str = "(+inFinity,4.0)"
|
||||||
|
- read(str,*) z
|
||||||
|
- if ((real(z) <= huge(r)) .or. aimag(z) /= 4.0) call abort()
|
||||||
|
- str = "(7.0,-inFinity)"
|
||||||
|
- read(str,*) z
|
||||||
|
- if ((aimag(z) >= -huge(r)) .or. real(z) /= 7.0) call abort()
|
||||||
|
-
|
||||||
|
- str = "inf"
|
||||||
|
- read(str,*) r
|
||||||
|
- if (r <= huge(r)) call abort()
|
||||||
|
- str = "(+inf,4.0)"
|
||||||
|
- read(str,*) z
|
||||||
|
- if ((real(z) <= huge(r)) .or. aimag(z) /= 4.0) call abort()
|
||||||
|
- str = "(7.0,-inf)"
|
||||||
|
- read(str,*) z
|
||||||
|
- if ((aimag(z) >= -huge(r)) .or. real(z) /= 7.0) call abort()
|
||||||
|
-
|
||||||
|
-end program main
|
||||||
Loading…
Reference in New Issue
Block a user