OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/32555 (Miscompilation of NIST testsuite)

Browse Source 
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
This commit is contained in:
Tobias Burnus 2007-06-30 18:01:25 +02:00 committed by Tobias Burnus
parent b2e8326644
commit df5be068b2
4 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

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

1
gcc/fortran/io.c
View File

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

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2007-06-30 Tobias Burnus <burnus@net-b.de>
PR fortran/32555
* gfortran.dg/fmt_zero_check.f90: New.
2007-06-30 Paul Thomas <pault@gcc.gnu.org>
PR fortran/30284

6
gcc/testsuite/gfortran.dg/fmt_zero_check.f90 Normal file
View File

@ -0,0 +1,6 @@
! { dg-do compile }
! PR fortran/32555
!
2050 FORMAT(0PF9.4)
2050 FORMAT(0F9.4) ! { dg-error "Expected P edit descriptor" }
end