From: Francois-Xavier Coudert Date: Thu, 29 Mar 2007 20:44:47 +0000 (+0000) Subject: size_dim.f90: Fix dg directive. X-Git-Tag: releases/gcc-4.3.0~5970 X-Git-Url: https://gcc.gnu.org/git/?a=commitdiff_plain;h=7761c0db85ad1d7f31a42024f6b3df69335cf149;p=gcc.git 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 91b8a6019553..2565e3e87046 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,32 @@ +2007-03-29 Francois-Xavier Coudert + + * 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 * 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 695cbee4832c..8d1a84da0a83 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 0a761889ba99..02602e86a365 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 f6e5532c0ac1..260afa4937e0 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 09916be63aed..88acbb752bb8 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 1daf49ce621a..5dcb6e3b173c 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 d66fb8e601b9..d1b607682edb 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 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 2ad331543e82..a8f584921d1a 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 diff --git a/gcc/testsuite/gfortran.dg/fmt_missing_period_3.f b/gcc/testsuite/gfortran.dg/fmt_missing_period_3.f index df52d80e0412..71a6c70f6c58 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 diff --git a/gcc/testsuite/gfortran.dg/fmt_zero_precision.f90 b/gcc/testsuite/gfortran.dg/fmt_zero_precision.f90 index 6ecd499b68c8..94f69a74eb37 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 e13f38fb7240..cfc08499b420 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 247016bdab09..88e9a0823b06 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 e7ce590b1174..04a7bc567e06 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 f595d6e2ac62..1b9259e80c69 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 4a11881f62f6..dd8e3fdf57df 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 c1679f27e9db..fbc30e8c6dc4 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 bba011571a9f..dcdce51c86e6 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 a709b50d6f9e..e3d31a6bf8fd 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 181614230c96..8e637ef3a9ce 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 24676340ecaf..2b19dfa1cef9 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 5b71f8ba5744..2cc5b8162e8c 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 66cda9eab807..bab4e6256340 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 @@ -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 248a0c33dda0..9d3938ed0015 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 a765acecf6a8..b7249b0f0d69 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 1a210e0ea0c5..0554f394a3b0 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 1a6ba4a59b58..2be10b76bf14 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 cbb1b35d6b28..7ebd1e2bf2c3 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