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

pr17286.f90: Add dg-do line. 

* gfortran.dg/pr17286.f90: Add dg-do line.  Explicitly test bug,
	rather than relying on default formatting.

From-SVN: r88448
This commit is contained in:
Paul Brook 2004-10-03 14:01:51 +00:00 committed by Paul Brook
parent 03ddaf352f
commit 0146748a01
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2004-10-03 Paul Brook <paul@codesourcery.com>
* gfortran.dg/pr17286.f90: Add dg-do line. Explicitly test bug,
rather than relying on default formatting.
2004-10-02 Joseph S. Myers <jsm@polyomino.org.uk>
* gcc.dg/20040920-1.c: Update expected message text.

13
gcc/testsuite/gfortran.dg/pr17286.f90
View File

@ -1,9 +1,8 @@
! pr17286
! namelist read fails when spaces exist between the '=' and the numbers
! this is a libgfortran bug
! derived from testcase provided by Paul Thomas <paulthomas2@wanadoo.fr
! { dg-do run }
! PR17286
! Namelist read failed when spaces exist between the '=' and the numbers
! This is a libgfortran bug
! Derived from testcase provided by Paul Thomas <paulthomas2@wanadoo.fr>
program bug3
integer num1 , num2 , num3 , num4
data num3 / 42 /
@ -13,7 +12,7 @@
logical dbg
data dbg / .FALSE. /
open(unit=10,status='SCRATCH')
write(10,'(A)') "&mynml1,num1=16,num2=32,&end"
write(10,'(A)') "&mynml1,num1= 16,num2=32,&end"
!
! write mynml2
!