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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e01eb72..7c6f445 100644 (file)
--- 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 (file)
--- 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
 !