diff options
| author | Paul Brook <paul@codesourcery.com> | 2004-10-03 14:01:51 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-10-03 14:01:51 +0000 |
| commit | 0146748a019f74213a4b32ba99a9ff88a745a02a (patch) | |
| tree | 75f3a0c67f0aa77f8ba8cf9a0a8047d48a01efee /gcc | |
| parent | 03ddaf352f00f840e6bd416a78bf4056adeb185c (diff) | |
| download | gcc-0146748a019f74213a4b32ba99a9ff88a745a02a.zip gcc-0146748a019f74213a4b32ba99a9ff88a745a02a.tar.gz gcc-0146748a019f74213a4b32ba99a9ff88a745a02a.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -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 ! |