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

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/gfortran.dg/blockdata_3.f90

-! { 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

gcc/testsuite/gfortran.dg/continuation_7.f90

-! { dg-do "compile" }
+! { dg-do compile }
 ! { dg-options "-Wall -std=f95" }
 ! There should only two warnings be printed.
 ! PR fortran/30968

gcc/testsuite/gfortran.dg/der_pointer_4.f90

-! {dg-do compile }
+! { dg-do compile }
 ! PR 24426
 ! Pointer-components of derived type with initialized components
 module crash

gcc/testsuite/gfortran.dg/derived_function_interface_1.f90

-! { 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

gcc/testsuite/gfortran.dg/entry_9.f90

-! { dg-do "run" }
+! { dg-do run }
 ! Check whether RESULT of ENTRY defaults to entry-name.
 ! PR fortran/30873
 !

gcc/testsuite/gfortran.dg/fmt_missing_period_1.f

-! { 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

gcc/testsuite/gfortran.dg/fmt_missing_period_2.f

-! { 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>

gcc/testsuite/gfortran.dg/fmt_missing_period_3.f

-! { 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>

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<"

gcc/testsuite/gfortran.dg/initialization_2.f90

-! {dg-do run }
+! { dg-do run }
 ! Vector subscripts, ranks and shapes of initialization expressions (PRs 29393,
 ! 29630 and 29679)
 program test

gcc/testsuite/gfortran.dg/pointer_intent_2.f90

-! { dg-compile }
+! { dg-do compile }
 ! { dg-options "-std=f95" }
 ! { dg-shouldfail "Fortran 2003 feature with -std=f95" }
 !

gcc/testsuite/gfortran.dg/pointer_intent_3.f90

-! { dg-compile }
+! { dg-do compile }
 ! { dg-options "-std=f2003 -fall-intrinsics" }
 ! { dg-shouldfail "Invalid code" }
 !

gcc/testsuite/gfortran.dg/pr15754.f90

 ! 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" }

gcc/testsuite/gfortran.dg/pr16433.f

-! { 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" }

gcc/testsuite/gfortran.dg/protected_1.f90

-! { dg-run }
+! { dg-do run }
 ! { dg-options "-std=f2003 -fall-intrinsics" }
 ! PR fortran/23994
 !

gcc/testsuite/gfortran.dg/protected_2.f90

-! { dg-run }
+! { dg-do run }
 ! { dg-options "-std=f2003 -fall-intrinsics" }
 ! PR fortran/23994
 !

gcc/testsuite/gfortran.dg/protected_3.f90

-! { dg-run }
-! { dg-shouldfail "Fortran 2003 code with -std=f95" }
 ! { dg-options "-std=f95 -fall-intrinsics" }
 ! PR fortran/23994
 !

gcc/testsuite/gfortran.dg/protected_4.f90

-! { dg-compile }
+! { dg-do compile }
 ! { dg-shouldfail "Invalid Fortran 2003 code" }
 ! { dg-options "-std=f2003 -fall-intrinsics" }
 ! PR fortran/23994

gcc/testsuite/gfortran.dg/protected_5.f90

-! { dg-compile }
+! { dg-do compile }
 ! { dg-shouldfail "Invalid Fortran 2003 code" }
 ! { dg-options "-std=f2003 -fall-intrinsics" }
 ! PR fortran/23994

gcc/testsuite/gfortran.dg/protected_6.f90

-! { dg-compile }
+! { dg-do compile }
 ! { dg-shouldfail "Invalid Fortran 2003 code" }
 ! { dg-options "-std=f2003 -fall-intrinsics" }
 ! PR fortran/23994

gcc/testsuite/gfortran.dg/real_const_3.f90

-!{ 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    )"

gcc/testsuite/gfortran.dg/size_dim.f90

-! { dg-do "run" }
+! { dg-do run }
 ! Check size with initialization expression value for dim=
 ! PR fortran/30882
 !

gcc/testsuite/gfortran.dg/use_4.f90

-! { dg-do "compile" }
+! { dg-do compile }
 ! PR fortran/30973
 ! Using symbols with the name of the module
 

gcc/testsuite/gfortran.dg/use_5.f90

-! { dg-do "run" }
+! { dg-do run }
 ! Renaming of operators
 module z
   interface operator(.addfive.)

gcc/testsuite/gfortran.dg/use_6.f90

-! { dg-do "compile" }
+! { dg-do compile }
 ! { dg-options "-std=f95" }
 ! Renaming of operators
 module z

gcc/testsuite/gfortran.dg/use_7.f90

-! { dg-do "compile" }
+! { dg-do compile }
 ! Renaming of operators
 module z
   type myT