diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr17286.f90 | 13 |
2 files changed, 11 insertions, 7 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e01eb72..7c6f445 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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. diff --git a/gcc/testsuite/gfortran.dg/pr17286.f90 b/gcc/testsuite/gfortran.dg/pr17286.f90 index ccd100f..e9beb6d 100644 --- a/gcc/testsuite/gfortran.dg/pr17286.f90 +++ b/gcc/testsuite/gfortran.dg/pr17286.f90 @@ -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 ! |