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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 91b8a6019553fee72697c385017200e88c386fbc..2565e3e870467f598dcf2ea083bb4fed435ffecc 100644 (file)
--- 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 695cbee4832ca4cbc69ef8ed0dc0c712a281369f..8d1a84da0a83e484d996a58744087fbbc0cdbfc7 100644 (file)
--- 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 0a761889ba99c2d060ed5bea60535783d66d00b1..02602e86a3657e2213c837a724a45f9929adc9c0 100644 (file)
--- 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 f6e5532c0ac18d4aa5b5d8c3178c11f249f0b400..260afa4937e03f4111bb538830d89f1ad903a91d 100644 (file)
--- 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 09916be63aed946040c419476c1112f6812ebfa8..88acbb752bb8ef97303beccd7faa3227d5902675 100644 (file)
--- 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 1daf49ce621a84b8eef204a88287349e108ca1ea..5dcb6e3b173c8d124f5e77f38c42a75cde45392a 100644 (file)
--- 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 d66fb8e601b9df1f10b2e846708edae36f16ad15..d1b607682edbe472b17025dab70febbd2e38f8fc 100644 (file)
--- 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 2ad331543e8244d275e2876e6a885833f7e0cfe1..a8f584921d1aac7578ebb644de36c22e073281ce 100644 (file)
--- 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 df52d80e041225745709b0efe777abf055593e2c..71a6c70f6c58a9534211f88a01558709036c8379 100644 (file)
--- 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 6ecd499b68c8446c3a24376f798b3506d41123a0..94f69a74eb374dbd6bc2ab75fab0ec33571d60fd 100644 (file)
--- 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 e13f38fb7240f3ee1e91b54a90683aef8bcc5428..cfc08499b420147973304ae631c8e7dc31bdaa02 100644 (file)
--- 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 247016bdab09ae3f234dd9470e779104a7d893c9..88e9a0823b06cc499fe18bf1733979559e95c05e 100644 (file)
--- 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 e7ce590b11743060bdae695a1a411635158af196..04a7bc567e0651744781b3f93c187e07c7334e93 100644 (file)
--- 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 f595d6e2ac62e19696c502dd11d000e1322b7970..1b9259e80c699b8246ddc7d16050f4fbaf4a923f 100644 (file)
--- 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 4a11881f62f6c022fb9ff7fb6e30caaba19061ff..dd8e3fdf57dfe1bfa30b30b3cb83cacfc4de32a2 100644 (file)
--- 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 c1679f27e9dba0accf03510ad7cc216bc75d3793..fbc30e8c6dc4314914b307fe7108dbf77b262023 100644 (file)
--- 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 bba011571a9f44b62eb278b5721ba193c7f91986..dcdce51c86e63db9f6c84d7967bdf85457341d94 100644 (file)
--- 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 a709b50d6f9ee6bb0afb17392a92a243a43f3d14..e3d31a6bf8fde3cd9ac5d10ffd462363695f06fb 100644 (file)
--- 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 181614230c96899740150da997182ba69bfccf71..8e637ef3a9ce022e85705d71f5b9531fcdb19697 100644 (file)
--- 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 24676340ecafb2053f6fc27eec61814175c4e317..2b19dfa1cef94f9bf7c9bd3da1b1291fae951853 100644 (file)
--- 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 5b71f8ba5744aea0c2edec5da9251be7ca4dcad8..2cc5b8162e8c9cdebf4f75adeafdeae4f984ed1c 100644 (file)
--- 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 66cda9eab8073247c26910b36ddc3009f9c89ce1..bab4e6256340735c3fe325a09dc3b136cbb10b31 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    )"

diff --git a/gcc/testsuite/gfortran.dg/size_dim.f90 b/gcc/testsuite/gfortran.dg/size_dim.f90
index 248a0c33dda0a58c61f612f40efb4e31f419e2d5..9d3938ed0015005df1cfdf436800dfab1e3df689 100644 (file)
--- 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 a765acecf6a8e9be2cf44b1988734f619d74b4c7..b7249b0f0d6974b524fb65f99075ec032f3a6a24 100644 (file)
--- 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 1a210e0ea0c5edcd82797fb66c6311ef6709ac3b..0554f394a3b02ab2dc20da6a87c6261dc73b576a 100644 (file)
--- 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 1a6ba4a59b58ecc6d01bef9bc73ef078258984ca..2be10b76bf143d3093a07af9b3b641341a200406 100644 (file)
--- 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 cbb1b35d6b28f06c6e87ad5a7d8c4720a42fa7c9..7ebd1e2bf2c3fa7b7ccf03228551441b11d70c27 100644 (file)
--- 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