From: Paul Brook <paul@codesourcery.com>
Date: Sun, 3 Oct 2004 14:01:51 +0000 (+0000)
Subject: pr17286.f90: Add dg-do line.
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0146748a019f74213a4b32ba99a9ff88a745a02a;p=platform%2Fupstream%2Fgcc.git

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
--- 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
 !