From: Steven G. Kargl <kargls@comcast.net>
Date: Sat, 9 Apr 2005 23:21:12 +0000 (+0000)
Subject: Fix dg-do directive.
X-Git-Tag: misc/cutover-cvs2svn~4203
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=2fee86e67fce7906c6ad3e6db2ff476e8aa350ca;p=thirdparty%2Fgcc.git

Fix dg-do directive.

From-SVN: r97932
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5ad338ed756d..6e92a2d77be6 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2005--4-09  Steven G. Kargl  <kargls@comcast.net>
+
+	* gfortran.dg/nint_1.f90:  Fix dg-do directive
+
 2005--4-09  Steven G. Kargl  <kargls@comcast.net>
 
 	* gfortran.dg/nint_1.f90: New test.
diff --git a/gcc/testsuite/gfortran.dg/nint_1.f90 b/gcc/testsuite/gfortran.dg/nint_1.f90
index dd5f817f3e8d..e487bec8ff64 100644
--- a/gcc/testsuite/gfortran.dg/nint_1.f90
+++ b/gcc/testsuite/gfortran.dg/nint_1.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 program nint_1
   if (int(anint(8388609.0)) /= 8388609) call abort
   if (int(anint(0.49999997)) /= 0) call abort