From 1d8818820a052bfe2872cc7588a7bfb979a2027e Mon Sep 17 00:00:00 2001 From: fxcoudert Date: Thu, 29 Mar 2007 20:44:47 +0000 Subject: [PATCH] * 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123341 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 29 +++++++++ gcc/testsuite/gfortran.dg/blockdata_3.f90 | 2 +- gcc/testsuite/gfortran.dg/continuation_7.f90 | 2 +- gcc/testsuite/gfortran.dg/der_pointer_4.f90 | 2 +- .../gfortran.dg/derived_function_interface_1.f90 | 2 +- gcc/testsuite/gfortran.dg/entry_9.f90 | 2 +- gcc/testsuite/gfortran.dg/fmt_missing_period_1.f | 2 +- gcc/testsuite/gfortran.dg/fmt_missing_period_2.f | 2 +- gcc/testsuite/gfortran.dg/fmt_missing_period_3.f | 2 +- gcc/testsuite/gfortran.dg/fmt_zero_precision.f90 | 74 +++++++++++----------- gcc/testsuite/gfortran.dg/initialization_2.f90 | 2 +- gcc/testsuite/gfortran.dg/pointer_intent_2.f90 | 2 +- gcc/testsuite/gfortran.dg/pointer_intent_3.f90 | 2 +- gcc/testsuite/gfortran.dg/pr15754.f90 | 2 +- gcc/testsuite/gfortran.dg/pr16433.f | 2 +- gcc/testsuite/gfortran.dg/protected_1.f90 | 2 +- gcc/testsuite/gfortran.dg/protected_2.f90 | 2 +- gcc/testsuite/gfortran.dg/protected_3.f90 | 2 - gcc/testsuite/gfortran.dg/protected_4.f90 | 2 +- gcc/testsuite/gfortran.dg/protected_5.f90 | 2 +- gcc/testsuite/gfortran.dg/protected_6.f90 | 2 +- gcc/testsuite/gfortran.dg/real_const_3.f90 | 28 ++++---- gcc/testsuite/gfortran.dg/size_dim.f90 | 2 +- gcc/testsuite/gfortran.dg/use_4.f90 | 2 +- gcc/testsuite/gfortran.dg/use_5.f90 | 2 +- gcc/testsuite/gfortran.dg/use_6.f90 | 2 +- gcc/testsuite/gfortran.dg/use_7.f90 | 2 +- 27 files changed, 103 insertions(+), 76 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 91b8a601955..2565e3e8704 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 695cbee4832..8d1a84da0a8 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 0a761889ba9..02602e86a36 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 f6e5532c0ac..260afa4937e 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 09916be63ae..88acbb752bb 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 1daf49ce621..5dcb6e3b173 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 d66fb8e601b..d1b607682ed 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 2ad331543e8..a8f584921d1 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 df52d80e041..71a6c70f6c5 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 6ecd499b68c..94f69a74eb3 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 e13f38fb724..cfc08499b42 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 247016bdab0..88e9a0823b0 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 e7ce590b117..04a7bc567e0 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 f595d6e2ac6..1b9259e80c6 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 4a11881f62f..dd8e3fdf57d 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 c1679f27e9d..fbc30e8c6dc 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 bba011571a9..dcdce51c86e 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 a709b50d6f9..e3d31a6bf8f 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 181614230c9..8e637ef3a9c 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 24676340eca..2b19dfa1cef 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 5b71f8ba574..2cc5b8162e8 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 66cda9eab80..bab4e625634 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 248a0c33dda..9d3938ed001 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 a765acecf6a..b7249b0f0d6 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 1a210e0ea0c..0554f394a3b 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 1a6ba4a59b5..2be10b76bf1 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 cbb1b35d6b2..7ebd1e2bf2c 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 -- 2.11.0