diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5ad338ed756d30415ef92a15390e1c537b4feb82..6e92a2d77be60b5ba795669313b7cdfc865baff1 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 dd5f817f3e8d88c4aef7ca87e68df213695da99a..e487bec8ff6424989dab457fff2aad3762ded033 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