diff options
| author | Tobias Burnus <burnus@net-b.de> | 2007-06-30 18:01:25 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-06-30 18:01:25 +0200 |
| commit | df5be068b278d70e30e7b4a86d09b4172681d060 (patch) | |
| tree | 98fa6097bf0d67b42ae7815b895ebc944aaa5888 /gcc/fortran | |
| parent | b2e8326644ad7cf6f6a4fd4fdcda55cf666e434a (diff) | |
| download | gcc-df5be068b278d70e30e7b4a86d09b4172681d060.zip gcc-df5be068b278d70e30e7b4a86d09b4172681d060.tar.gz gcc-df5be068b278d70e30e7b4a86d09b4172681d060.tar.bz2 | |
re PR fortran/32555 (Miscompilation of NIST testsuite)
2007-06-30 Tobias Burnus <burnus@net-b.de>
PR fortran/32555
* io.c (check_format): Allow zero to precede the
P edit descriptor.
2007-06-30 Tobias Burnus <burnus@net-b.de>
PR fortran/32555
* gfortran.dg/fmt_zero_check.f90: New.
From-SVN: r126152
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 1 |
2 files changed, 7 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 3786adc..19ab391 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-06-30 Tobias Burnus <burnus@net-b.de> + + PR fortran/32555 + * io.c (check_format): Allow zero to precede the + P edit descriptor. + 2007-06-30 Paul Thomas <pault@gcc.gnu.org> PR fortran/32472 diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index f9b5eac..e8f4deb 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -487,6 +487,7 @@ format_item_1: goto format_item; case FMT_SIGNED_INT: + case FMT_ZERO: /* Signed integer can only precede a P format. */ t = format_lex (); if (t != FMT_P) |