Fix dg-do directive.

From-SVN: r97932

Fix dg-do directive.
2fee86e6 · Steven G. Kargl · Steven G. Kargl · 5f115a4b · 2fee86e6 · 2fee86e6
Commit 2fee86e6 authored 19 years ago by Steven G. Kargl Committed by Steven G. Kargl 19 years ago
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+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.

--- a/gcc/testsuite/gfortran.dg/nint_1.f90
+++ b/gcc/testsuite/gfortran.dg/nint_1.f90
+! { dg-do run }
 program nint_1
  if (int(anint(8388609.0)) /= 8388609) call abort
  if (int(anint(0.49999997)) /= 0) call abort