size_dim.f90: Fix dg directive.

	* size_dim.f90: Fix dg directive.
	* pr16433.f: Likewise.
	* use_6.f90: Likewise.
	* use_7.f90: Likewise.
	* entry_9.f90: Likewise.
	* pointer_intent_2.f90: Likewise.
	* protected_1.f90: Likewise.
	* fmt_missing_period_2.f: Likewise.
	* pointer_intent_3.f90: Likewise.
	* protected_2.f90: Likewise.
	* protected_3.f90: Likewise.
	* pr15754.f90: Likewise.
	* protected_4.f90: Likewise.
	* protected_5.f90: Likewise.
	* initialization_2.f90: Likewise.
	* protected_6.f90: Likewise.
	* continuation_7.f90: Likewise.
	* derived_function_interface_1.f90: Likewise.
	* der_pointer_4.f90: Likewise.
	* fmt_zero_precision.f90: Likewise.
	* blockdata_3.f90: Likewise.
	* fmt_missing_period_1.f: Likewise.
	* real_const_3.f90: Likewise.
	* use_4.f90: Likewise.
	* fmt_missing_period_3.f: Likewise.
	* use_5.f90: Likewise.

From-SVN: r123341

27 files changed, 103 insertions, 76 deletions

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 91b8a60..2565e3e 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,32 @@
+2007-03-29  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	* size_dim.f90: Fix dg directive.
+	* pr16433.f: Likewise.
+	* use_6.f90: Likewise.
+	* use_7.f90: Likewise.
+	* entry_9.f90: Likewise.
+	* pointer_intent_2.f90: Likewise.
+	* protected_1.f90: Likewise.
+	* fmt_missing_period_2.f: Likewise.
+	* pointer_intent_3.f90: Likewise.
+	* protected_2.f90: Likewise.
+	* protected_3.f90: Likewise.
+	* pr15754.f90: Likewise.
+	* protected_4.f90: Likewise.
+	* protected_5.f90: Likewise.
+	* initialization_2.f90: Likewise.
+	* protected_6.f90: Likewise.
+	* continuation_7.f90: Likewise.
+	* derived_function_interface_1.f90: Likewise.
+	* der_pointer_4.f90: Likewise.
+	* fmt_zero_precision.f90: Likewise.
+	* blockdata_3.f90: Likewise.
+	* fmt_missing_period_1.f: Likewise.
+	* real_const_3.f90: Likewise.
+	* use_4.f90: Likewise.
+	* fmt_missing_period_3.f: Likewise.
+	* use_5.f90: Likewise.
+
 2007-03-28  Mike Stump  <mrs@apple.com>
 
 	* gcc.dg/darwin-comm.c: Add.
diff --git a/gcc/testsuite/gfortran.dg/blockdata_3.f90 b/gcc/testsuite/gfortran.dg/blockdata_3.f90
index 695cbee..8d1a84d 100644
--- a/gcc/testsuite/gfortran.dg/blockdata_3.f90
+++ b/gcc/testsuite/gfortran.dg/blockdata_3.f90
@@ -1,4 +1,4 @@
-! { dg-compile }
+! { dg-do compile }
 ! { dg-options "-W -Wall" }
 ! Tests the fix for PR29539, in which the derived type in a blockdata
 ! cause an ICE.  With the fix for PR29565, this now compiles and runs
diff --git a/gcc/testsuite/gfortran.dg/continuation_7.f90 b/gcc/testsuite/gfortran.dg/continuation_7.f90
index 0a761889..02602e8 100644
--- a/gcc/testsuite/gfortran.dg/continuation_7.f90
+++ b/gcc/testsuite/gfortran.dg/continuation_7.f90
@@ -1,4 +1,4 @@
-! { dg-do "compile" }
+! { dg-do compile }
 ! { dg-options "-Wall -std=f95" }
 ! There should only two warnings be printed.
 ! PR fortran/30968
diff --git a/gcc/testsuite/gfortran.dg/der_pointer_4.f90 b/gcc/testsuite/gfortran.dg/der_pointer_4.f90
index f6e5532..260afa4 100644
--- a/gcc/testsuite/gfortran.dg/der_pointer_4.f90
+++ b/gcc/testsuite/gfortran.dg/der_pointer_4.f90
@@ -1,4 +1,4 @@
-! {dg-do compile }
+! { dg-do compile }
 ! PR 24426
 ! Pointer-components of derived type with initialized components
 module crash
diff --git a/gcc/testsuite/gfortran.dg/derived_function_interface_1.f90 b/gcc/testsuite/gfortran.dg/derived_function_interface_1.f90
index 09916be6..88acbb7 100644
--- a/gcc/testsuite/gfortran.dg/derived_function_interface_1.f90
+++ b/gcc/testsuite/gfortran.dg/derived_function_interface_1.f90
@@ -1,4 +1,4 @@
-! { dg-compile }
+! { dg-do compile }
 ! Tests the fix for PR29634, in which an ICE would occur in the
 ! interface declaration of a function with an 'old-style' type
 ! declaration.  When fixed, it was found that the error message
diff --git a/gcc/testsuite/gfortran.dg/entry_9.f90 b/gcc/testsuite/gfortran.dg/entry_9.f90
index 1daf49c..5dcb6e3 100644
--- a/gcc/testsuite/gfortran.dg/entry_9.f90
+++ b/gcc/testsuite/gfortran.dg/entry_9.f90
@@ -1,4 +1,4 @@
-! { dg-do "run" }
+! { dg-do run }
 ! Check whether RESULT of ENTRY defaults to entry-name.
 ! PR fortran/30873
 !
diff --git a/gcc/testsuite/gfortran.dg/fmt_missing_period_1.f b/gcc/testsuite/gfortran.dg/fmt_missing_period_1.f
index d66fb8e..d1b6076 100644
--- a/gcc/testsuite/gfortran.dg/fmt_missing_period_1.f
+++ b/gcc/testsuite/gfortran.dg/fmt_missing_period_1.f
@@ -1,4 +1,4 @@
-! { dg-compile }
+! { dg-do compile }
 ! PR27634 Missing period in format specifier. Test case derived from case given
 ! in PR.  Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
       real      aval
diff --git a/gcc/testsuite/gfortran.dg/fmt_missing_period_2.f b/gcc/testsuite/gfortran.dg/fmt_missing_period_2.f
index 2ad3315..a8f5849 100644
--- a/gcc/testsuite/gfortran.dg/fmt_missing_period_2.f
+++ b/gcc/testsuite/gfortran.dg/fmt_missing_period_2.f
@@ -1,4 +1,4 @@
-! { dg-run }
+! { dg-do run }
 ! { dg-options "-w -std=legacy" }
 ! PR27634 Missing period in format specifier. Test case derived from case given
 ! in PR.  Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
diff --git a/gcc/testsuite/gfortran.dg/fmt_missing_period_3.f b/gcc/testsuite/gfortran.dg/fmt_missing_period_3.f
index df52d80..71a6c70 100644
--- a/gcc/testsuite/gfortran.dg/fmt_missing_period_3.f
+++ b/gcc/testsuite/gfortran.dg/fmt_missing_period_3.f
@@ -1,4 +1,4 @@
-! { dg-run }
+! { dg-do run }
 ! { dg-options "-std=legacy" }
 ! PR27634 Missing period in format specifier. Test case derived from case given
 ! in PR.  Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
diff --git a/gcc/testsuite/gfortran.dg/fmt_zero_precision.f90 b/gcc/testsuite/gfortran.dg/fmt_zero_precision.f90
index 6ecd499..94f69a7 100644
--- a/gcc/testsuite/gfortran.dg/fmt_zero_precision.f90
+++ b/gcc/testsuite/gfortran.dg/fmt_zero_precision.f90
@@ -46,40 +46,40 @@
  250   format(1pe7.0,"<")
  300   format(1pe6.0,"<")
   end
-! {dg-output "-1.<"
-! {dg-output " 1.<"
-! {dg-output "-9.<"
-! {dg-output "-1.<"
-! {dg-output "-1.<"
-! {dg-output "-1.<"
-! {dg-output "-1.<"
-! {dg-output " 0.<"
-! {dg-output "     38.<"
-! {dg-output "  10345.<"
-! {dg-output "    334.<"
-! {dg-output "    333.<"
-! {dg-output "1.E-01"
-! {dg-output "-1.E+00<"
-! {dg-output " 1.E+00<"
-! {dg-output "-9.E+00<"
-! {dg-output "-1.E+00<"
-! {dg-output "-1.E+00<"
-! {dg-output "-1.E+00<"
-! {dg-output "-6.E-01<"
-! {dg-output "-5.E-01<"
-! {dg-output "  4.E+01<"
-! {dg-output "  1.E+04<"
-! {dg-output "  3.E+02<"
-! {dg-output "  3.E+02<"
-! {dg-output "-1.E+00<"
-! {dg-output " 1.E+00<"
-! {dg-output "-9.E+00<"
-! {dg-output "-1.E+00<"
-! {dg-output "-1.E+00<"
-! {dg-output "-1.E+00<"
-! {dg-output "-6.E-01<"
-! {dg-output "-5.E-01<"
-! {dg-output "4.E+01<"
-! {dg-output "1.E+04<"
-! {dg-output "3.E+02<"
-! {dg-output "3.E+02<"
+! { dg-output "-1.<"
+! { dg-output " 1.<"
+! { dg-output "-9.<"
+! { dg-output "-1.<"
+! { dg-output "-1.<"
+! { dg-output "-1.<"
+! { dg-output "-1.<"
+! { dg-output " 0.<"
+! { dg-output "     38.<"
+! { dg-output "  10345.<"
+! { dg-output "    334.<"
+! { dg-output "    333.<"
+! { dg-output "1.E-01"
+! { dg-output "-1.E+00<"
+! { dg-output " 1.E+00<"
+! { dg-output "-9.E+00<"
+! { dg-output "-1.E+00<"
+! { dg-output "-1.E+00<"
+! { dg-output "-1.E+00<"
+! { dg-output "-6.E-01<"
+! { dg-output "-5.E-01<"
+! { dg-output "  4.E+01<"
+! { dg-output "  1.E+04<"
+! { dg-output "  3.E+02<"
+! { dg-output "  3.E+02<"
+! { dg-output "-1.E+00<"
+! { dg-output " 1.E+00<"
+! { dg-output "-9.E+00<"
+! { dg-output "-1.E+00<"
+! { dg-output "-1.E+00<"
+! { dg-output "-1.E+00<"
+! { dg-output "-6.E-01<"
+! { dg-output "-5.E-01<"
+! { dg-output "4.E+01<"
+! { dg-output "1.E+04<"
+! { dg-output "3.E+02<"
+! { dg-output "3.E+02<"
diff --git a/gcc/testsuite/gfortran.dg/initialization_2.f90 b/gcc/testsuite/gfortran.dg/initialization_2.f90
index e13f38f..cfc0849 100644
--- a/gcc/testsuite/gfortran.dg/initialization_2.f90
+++ b/gcc/testsuite/gfortran.dg/initialization_2.f90
@@ -1,4 +1,4 @@
-! {dg-do run }
+! { dg-do run }
 ! Vector subscripts, ranks and shapes of initialization expressions (PRs 29393,
 ! 29630 and 29679)
 program test
diff --git a/gcc/testsuite/gfortran.dg/pointer_intent_2.f90 b/gcc/testsuite/gfortran.dg/pointer_intent_2.f90
index 247016b..88e9a08 100644
--- a/gcc/testsuite/gfortran.dg/pointer_intent_2.f90
+++ b/gcc/testsuite/gfortran.dg/pointer_intent_2.f90
@@ -1,4 +1,4 @@
-! { dg-compile }
+! { dg-do compile }
 ! { dg-options "-std=f95" }
 ! { dg-shouldfail "Fortran 2003 feature with -std=f95" }
 !
diff --git a/gcc/testsuite/gfortran.dg/pointer_intent_3.f90 b/gcc/testsuite/gfortran.dg/pointer_intent_3.f90
index e7ce590..04a7bc5 100644
--- a/gcc/testsuite/gfortran.dg/pointer_intent_3.f90
+++ b/gcc/testsuite/gfortran.dg/pointer_intent_3.f90
@@ -1,4 +1,4 @@
-! { dg-compile }
+! { dg-do compile }
 ! { dg-options "-std=f2003 -fall-intrinsics" }
 ! { dg-shouldfail "Invalid code" }
 !
diff --git a/gcc/testsuite/gfortran.dg/pr15754.f90 b/gcc/testsuite/gfortran.dg/pr15754.f90
index f595d6e..1b9259e 100644
--- a/gcc/testsuite/gfortran.dg/pr15754.f90
+++ b/gcc/testsuite/gfortran.dg/pr15754.f90
@@ -1,5 +1,5 @@
 ! we didn't give a warning if the RHS of an assignment was NULL
-! { dg-do-compile }
+! { dg-do compile }
 INTEGER, POINTER :: P
 I = NULL() ! { dg-error "NULL appears" "Assignment non-pointer = NULL" }
 P = NULL() ! { dg-error "NULL appears" "Assignment pointer = NULL" }
diff --git a/gcc/testsuite/gfortran.dg/pr16433.f b/gcc/testsuite/gfortran.dg/pr16433.f
index 4a11881..dd8e3fd 100644
--- a/gcc/testsuite/gfortran.dg/pr16433.f
+++ b/gcc/testsuite/gfortran.dg/pr16433.f
@@ -1,4 +1,4 @@
-! { dg-do-compile }
+! { dg-do compile }
       real x
       double precision dx
       x = x'2ffde' ! { dg-warning "exadecimal constant" "Hex constant can't begin with x" }
diff --git a/gcc/testsuite/gfortran.dg/protected_1.f90 b/gcc/testsuite/gfortran.dg/protected_1.f90
index c1679f2..fbc30e8 100644
--- a/gcc/testsuite/gfortran.dg/protected_1.f90
+++ b/gcc/testsuite/gfortran.dg/protected_1.f90
@@ -1,4 +1,4 @@
-! { dg-run }
+! { dg-do run }
 ! { dg-options "-std=f2003 -fall-intrinsics" }
 ! PR fortran/23994
 !
diff --git a/gcc/testsuite/gfortran.dg/protected_2.f90 b/gcc/testsuite/gfortran.dg/protected_2.f90
index bba0115..dcdce51 100644
--- a/gcc/testsuite/gfortran.dg/protected_2.f90
+++ b/gcc/testsuite/gfortran.dg/protected_2.f90
@@ -1,4 +1,4 @@
-! { dg-run }
+! { dg-do run }
 ! { dg-options "-std=f2003 -fall-intrinsics" }
 ! PR fortran/23994
 !
diff --git a/gcc/testsuite/gfortran.dg/protected_3.f90 b/gcc/testsuite/gfortran.dg/protected_3.f90
index a709b50..e3d31a6 100644
--- a/gcc/testsuite/gfortran.dg/protected_3.f90
+++ b/gcc/testsuite/gfortran.dg/protected_3.f90
@@ -1,5 +1,3 @@
-! { dg-run }
-! { dg-shouldfail "Fortran 2003 code with -std=f95" }
 ! { dg-options "-std=f95 -fall-intrinsics" }
 ! PR fortran/23994
 !
diff --git a/gcc/testsuite/gfortran.dg/protected_4.f90 b/gcc/testsuite/gfortran.dg/protected_4.f90
index 1816142..8e637ef 100644
--- a/gcc/testsuite/gfortran.dg/protected_4.f90
+++ b/gcc/testsuite/gfortran.dg/protected_4.f90
@@ -1,4 +1,4 @@
-! { dg-compile }
+! { dg-do compile }
 ! { dg-shouldfail "Invalid Fortran 2003 code" }
 ! { dg-options "-std=f2003 -fall-intrinsics" }
 ! PR fortran/23994
diff --git a/gcc/testsuite/gfortran.dg/protected_5.f90 b/gcc/testsuite/gfortran.dg/protected_5.f90
index 2467634..2b19dfa 100644
--- a/gcc/testsuite/gfortran.dg/protected_5.f90
+++ b/gcc/testsuite/gfortran.dg/protected_5.f90
@@ -1,4 +1,4 @@
-! { dg-compile }
+! { dg-do compile }
 ! { dg-shouldfail "Invalid Fortran 2003 code" }
 ! { dg-options "-std=f2003 -fall-intrinsics" }
 ! PR fortran/23994
diff --git a/gcc/testsuite/gfortran.dg/protected_6.f90 b/gcc/testsuite/gfortran.dg/protected_6.f90
index 5b71f8b..2cc5b81 100644
--- a/gcc/testsuite/gfortran.dg/protected_6.f90
+++ b/gcc/testsuite/gfortran.dg/protected_6.f90
@@ -1,4 +1,4 @@
-! { dg-compile }
+! { dg-do compile }
 ! { dg-shouldfail "Invalid Fortran 2003 code" }
 ! { dg-options "-std=f2003 -fall-intrinsics" }
 ! PR fortran/23994
diff --git a/gcc/testsuite/gfortran.dg/real_const_3.f90 b/gcc/testsuite/gfortran.dg/real_const_3.f90
index 66cda9e..bab4e62 100644
--- 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    )"
diff --git a/gcc/testsuite/gfortran.dg/size_dim.f90 b/gcc/testsuite/gfortran.dg/size_dim.f90
index 248a0c3..9d3938e 100644
--- a/gcc/testsuite/gfortran.dg/size_dim.f90
+++ b/gcc/testsuite/gfortran.dg/size_dim.f90
@@ -1,4 +1,4 @@
-! { dg-do "run" }
+! { dg-do run }
 ! Check size with initialization expression value for dim=
 ! PR fortran/30882
 !
diff --git a/gcc/testsuite/gfortran.dg/use_4.f90 b/gcc/testsuite/gfortran.dg/use_4.f90
index a765ace..b7249b0 100644
--- a/gcc/testsuite/gfortran.dg/use_4.f90
+++ b/gcc/testsuite/gfortran.dg/use_4.f90
@@ -1,4 +1,4 @@
-! { dg-do "compile" }
+! { dg-do compile }
 ! PR fortran/30973
 ! Using symbols with the name of the module
 
diff --git a/gcc/testsuite/gfortran.dg/use_5.f90 b/gcc/testsuite/gfortran.dg/use_5.f90
index 1a210e0..0554f39 100644
--- a/gcc/testsuite/gfortran.dg/use_5.f90
+++ b/gcc/testsuite/gfortran.dg/use_5.f90
@@ -1,4 +1,4 @@
-! { dg-do "run" }
+! { dg-do run }
 ! Renaming of operators
 module z
   interface operator(.addfive.)
diff --git a/gcc/testsuite/gfortran.dg/use_6.f90 b/gcc/testsuite/gfortran.dg/use_6.f90
index 1a6ba4a..2be10b7 100644
--- a/gcc/testsuite/gfortran.dg/use_6.f90
+++ b/gcc/testsuite/gfortran.dg/use_6.f90
@@ -1,4 +1,4 @@
-! { dg-do "compile" }
+! { dg-do compile }
 ! { dg-options "-std=f95" }
 ! Renaming of operators
 module z
diff --git a/gcc/testsuite/gfortran.dg/use_7.f90 b/gcc/testsuite/gfortran.dg/use_7.f90
index cbb1b35..7ebd1e2 100644
--- a/gcc/testsuite/gfortran.dg/use_7.f90
+++ b/gcc/testsuite/gfortran.dg/use_7.f90
@@ -1,4 +1,4 @@
-! { dg-do "compile" }
+! { dg-do compile }
 ! Renaming of operators
 module z
   type myT