* size_dim.f90: Fix dg directive.

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / real_const_3.f90

diff --git a/gcc/testsuite/gfortran.dg/real_const_3.f90 b/gcc/testsuite/gfortran.dg/real_const_3.f90
index 66cda9e..bab4e62 100644 (file)
--- a/gcc/testsuite/gfortran.dg/real_const_3.f90
+++ b/gcc/testsuite/gfortran.dg/real_const_3.f90
@@ -1,4 +1,4 @@
-!{ dg-run }
+!{ dg-do run }
 !{ dg-options "-fno-range-check" }
 ! PR19310 and PR19904, allow disabling range check during compile.
 ! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
@@ -26,16 +26,16 @@ program main
   print *, z4
 
 end program main
-!{dg-output "      +Infinity"
-!{dg-output "   0.000000"
-!{dg-output "      -Infinity"
-!{dg-output "            NaN"
-!{dg-output "            NaN"
-!{dg-output "      -Infinity"
-!{dg-output "      -Infinity"
-!{dg-output "      +Infinity"
-!{dg-output "            NaN"
-!{dg-output " (           NaN,           NaN)"
-!{dg-output " (           NaN,           NaN)"
-!{dg-output " (     +Infinity,     -Infinity)"
-!{dg-output " (  0.000000    ,  0.000000    )"
+!{ dg-output "      +Infinity"
+!{ dg-output "   0.000000"
+!{ dg-output "      -Infinity"
+!{ dg-output "            NaN"
+!{ dg-output "            NaN"
+!{ dg-output "      -Infinity"
+!{ dg-output "      -Infinity"
+!{ dg-output "      +Infinity"
+!{ dg-output "            NaN"
+!{ dg-output " (           NaN,           NaN)"
+!{ dg-output " (           NaN,           NaN)"
+!{ dg-output " (     +Infinity,     -Infinity)"
+!{ dg-output " (  0.000000    ,  0.000000    )"