From 1a6ba51b1362a0edba3e1798592d59c43bae8dd2 Mon Sep 17 00:00:00 2001
From: pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sun, 3 Oct 2004 14:01:51 +0000
Subject: [PATCH] 	* gfortran.dg/pr17286.f90: Add dg-do line.  Explicitly
 test bug, 	rather than relying on default formatting.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88448 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/testsuite/ChangeLog               |  5 +++++
 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 e01eb72d372..7c6f4455e9a 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 ccd100f93b0..e9beb6d375d 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
 !
-- 
2.11.4.GIT