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:
parent
03ddaf352f
commit
0146748a01
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
!
|
||||
|
|
Loading…
Reference in New Issue