public inbox for git-commits@fedoraproject.org
help / color / mirror / Atom feed
From: Jakub Jelinek <jakub@fedoraproject.org>
To: git-commits@fedoraproject.org
Subject: [rpms/gcc] rhel-f41-base: 4.3.0-0.2
Date: Mon, 29 Jun 2026 12:23:31 GMT [thread overview]
Message-ID: <178273581174.1.3410106237140094915.rpms-gcc-293eaa4c376e@fedoraproject.org> (raw)
A new commit has been pushed.
Repo : rpms/gcc
Branch : rhel-f41-base
Commit : 293eaa4c376e6f883b4f56d17b5d179c2c52dc29
Author : Jakub Jelinek <jakub@fedoraproject.org>
Date : 2007-12-12T20:16:35+00:00
Stats : +197/-0 in 1 file(s)
URL : https://src.fedoraproject.org/rpms/gcc/c/293eaa4c376e6f883b4f56d17b5d179c2c52dc29?branch=rhel-f41-base
Log:
4.3.0-0.2
---
diff --git a/gcc43-pr34427.patch b/gcc43-pr34427.patch
new file mode 100644
index 0000000..1f64723
--- /dev/null
+++ b/gcc43-pr34427.patch
@@ -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
next reply other threads:[~2026-06-29 12:23 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2026-06-29 12:23 Jakub Jelinek [this message]
2026-06-29 12:23 [rpms/gcc] rhel-f41-base: 4.3.0-0.2 Jakub Jelinek
2026-06-29 12:23 Jakub Jelinek
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=178273581174.1.3410106237140094915.rpms-gcc-293eaa4c376e@fedoraproject.org \
--to=jakub@fedoraproject.org \
--cc=git-commits@fedoraproject.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox