Imported Upstream version 4.8.1

[platform/upstream/gcc48.git] / gcc / testsuite / gfortran.dg / module_double_reuse.f90

diff --git a/gcc/testsuite/gfortran.dg/module_double_reuse.f90 b/gcc/testsuite/gfortran.dg/module_double_reuse.f90
index 694e821..04e8512 100644 (file)
--- a/gcc/testsuite/gfortran.dg/module_double_reuse.f90
+++ b/gcc/testsuite/gfortran.dg/module_double_reuse.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! Test of fix for PR18878
 !
 ! Based on example in PR by Steve Kargl
@@ -16,5 +17,3 @@ program d
   if (kind(x).ne.kind(y)) call abort ()
   if (v.ne.u) call abort ()
 end program d
-
-! { dg-final { cleanup-modules "a" } }