From patchwork Tue Feb 22 10:11:27 2011 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Tobias Burnus X-Patchwork-Id: 83943 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) by ozlabs.org (Postfix) with SMTP id E0AA7B70FE for ; Tue, 22 Feb 2011 21:11:56 +1100 (EST) Received: (qmail 1514 invoked by alias); 22 Feb 2011 10:11:51 -0000 Received: (qmail 1385 invoked by uid 22791); 22 Feb 2011 10:11:41 -0000 X-SWARE-Spam-Status: No, hits=-1.4 required=5.0 tests=AWL, BAYES_00, T_RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from outpost1.zedat.fu-berlin.de (HELO outpost1.zedat.fu-berlin.de) (130.133.4.66) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Tue, 22 Feb 2011 10:11:31 +0000 Received: from relay1.zedat.fu-berlin.de ([130.133.4.67]) by outpost1.zedat.fu-berlin.de (Exim 4.69) with esmtp (envelope-from ) id <1PrpDM-0005AR-C3>; Tue, 22 Feb 2011 11:11:28 +0100 Received: from mx.physik.fu-berlin.de ([160.45.64.218]) by relay1.zedat.fu-berlin.de (Exim 4.69) with esmtp (envelope-from ) id <1PrpDM-0000eO-8C>; Tue, 22 Feb 2011 11:11:28 +0100 Received: from login.physik.fu-berlin.de ([160.45.66.88]) by mx.physik.fu-berlin.de with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.69) (envelope-from ) id 1PrpDM-0007Wa-22; Tue, 22 Feb 2011 11:11:28 +0100 Received: from tburnus by login.physik.fu-berlin.de with local (Exim 4.69 #1 (Debian)) id 1PrpDM-0001OT-0F; Tue, 22 Feb 2011 11:11:28 +0100 Date: Tue, 22 Feb 2011 11:11:27 +0100 From: Tobias Burnus To: gcc-patches@gcc.gnu.org, fortran@gcc.gnu.org Subject: [Patch,Fortran testsuite, committed] Fix dg-do in the test suite Message-ID: <20110222101117.GA4146@physik.fu-berlin.de> MIME-Version: 1.0 Content-Disposition: inline User-Agent: Mutt/1.5.18 (2008-05-17) Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org Hi all, this patch is based on the remark of Jerry that there are some bug in the "dg-do" in the test suite. The attached patch (committed) fixes all those which I found, except for: - fmt_f0_1.f90, which Jerry found and which fails cf. http://gcc.gnu.org/ml/fortran/2011-02/msg00216.html - allocate_deferred_char_scalar_1.f03 which fails and is now PR 47846 As the testsuite defaults to "dg-do compile", only the "dg-do run" changes are important. Note: Besides the braces and lacking spaces also writing "run" in quotation marks does not work. Regtested on x86-64-linux and committed (Rev. 170393) as obvious. Thanks to Jerry for pointing out the issue! Jerry wrote: > I am working on the bad test case, but I think we need to > fix the testsuite drivers to fail on this sort of typo. Well, the only way it to make a lacking dg-do failing instead of defaulting to compile. Additionally, it helps to run newly added tests separately before submittal as this increases the chance that one finds such issues. Tobias PS: I think there might be more issues, I only did some grepping. 2011-02-22 Tobias Burnus * abstract_type_1.f90: Fix dg-do syntax. * abstract_type_2.f03: Ditto. * abstract_type_3.f03: Ditto. * abstract_type_4.f03: Ditto. * abstract_type_5.f03: Ditto. * abstract_type_6.f03: Ditto. * alloc_comp_constraint_6.f90: Ditto. * alloc_comp_init_expr.f03: Ditto. * allocatable_scalar_11.f90: Ditto. * allocate_scalar_with_shape.f90: Ditto. * array_function_5.f90: Ditto. * asynchronous_3.f03: Ditto. * char_expr_1.f90: Ditto. * class_14.f03: Ditto. * data_array_6.f: Ditto. * data_invalid.f90: Ditto. * dot_product_1.f03: Ditto. * func_derived_5.f90: Ditto. * func_result_4.f90: Ditto. * implied_do_1.f90: Ditto. * initialization_25.f90: Ditto. * initialization_26.f90: Ditto. * interface_34.f90: Ditto. * iso_c_binding_init_expr.f03: Ditto. * keyword_symbol_1.f90: Ditto. * matmul_8.f03: Ditto. * merge_init_expr.f90: Ditto. * pack_assign_1.f90: Ditto. * pack_vector_1.f90: Ditto. * pointer_check_8.f90: Ditto. * product_init_expr.f03: Ditto. * reshape_order_5.f90: Ditto. * reshape_shape_1.f90: Ditto. * reshape_zerosize_2.f90: Ditto. * same_name_2.f90: Ditto. * selected_real_kind_1.f90: Ditto. * spread_init_expr.f03: Ditto. * stmt_func_1.f90: Ditto. * sum_init_expr.f03: Ditto. * transpose_3.f03: Ditto. * unpack_init_expr.f03: Ditto. * warn_conversion.f90: Ditto. * warn_conversion_2.f90: Ditto. * warn_intent_out_not_set.f90: Ditto. * warn_unused_dummy_argument_1.f90: Ditto. * warn_unused_dummy_argument_2.f90: Ditto. * whole_file_16.f90: Ditto. * whole_file_17.f90: Ditto. * whole_file_18.f90: Ditto. * whole_file_20.f03: Ditto. * whole_file_5.f90: Ditto. * whole_file_6.f90: Ditto. * write_invalid_format.f90: Ditto. * zero_sized_6.f90: Ditto. diff --git a/gcc/testsuite/gfortran.dg/abstract_type_1.f90 b/gcc/testsuite/gfortran.dg/abstract_type_1.f90 index 7a91e11..d0cd432 100644 --- a/gcc/testsuite/gfortran.dg/abstract_type_1.f90 +++ b/gcc/testsuite/gfortran.dg/abstract_type_1.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "-std=f95" } ! Abstract Types. diff --git a/gcc/testsuite/gfortran.dg/abstract_type_2.f03 b/gcc/testsuite/gfortran.dg/abstract_type_2.f03 index 9b4ddeb..2583f1f 100644 --- a/gcc/testsuite/gfortran.dg/abstract_type_2.f03 +++ b/gcc/testsuite/gfortran.dg/abstract_type_2.f03 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! Abstract Types. ! Check for parser errors. diff --git a/gcc/testsuite/gfortran.dg/abstract_type_3.f03 b/gcc/testsuite/gfortran.dg/abstract_type_3.f03 index a6f0623..79bc131 100644 --- a/gcc/testsuite/gfortran.dg/abstract_type_3.f03 +++ b/gcc/testsuite/gfortran.dg/abstract_type_3.f03 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! Abstract Types. ! Check for errors when using abstract types in an inappropriate way. diff --git a/gcc/testsuite/gfortran.dg/abstract_type_4.f03 b/gcc/testsuite/gfortran.dg/abstract_type_4.f03 index bc34d4e..a6e5de2 100644 --- a/gcc/testsuite/gfortran.dg/abstract_type_4.f03 +++ b/gcc/testsuite/gfortran.dg/abstract_type_4.f03 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! Abstract Types. ! Check for module file IO. diff --git a/gcc/testsuite/gfortran.dg/abstract_type_5.f03 b/gcc/testsuite/gfortran.dg/abstract_type_5.f03 index 7da38e8..42ac963 100644 --- a/gcc/testsuite/gfortran.dg/abstract_type_5.f03 +++ b/gcc/testsuite/gfortran.dg/abstract_type_5.f03 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! Abstract Types. ! Check for correct handling of abstract-typed base object references. diff --git a/gcc/testsuite/gfortran.dg/abstract_type_6.f03 b/gcc/testsuite/gfortran.dg/abstract_type_6.f03 index bc8e543..53116df 100644 --- a/gcc/testsuite/gfortran.dg/abstract_type_6.f03 +++ b/gcc/testsuite/gfortran.dg/abstract_type_6.f03 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! Test the fix for PR43266, in which an ICE followed correct error messages. ! ! Contributed by Tobias Burnus diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_constraint_6.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_constraint_6.f90 index 657b724..e2b609a 100644 --- a/gcc/testsuite/gfortran.dg/alloc_comp_constraint_6.f90 +++ b/gcc/testsuite/gfortran.dg/alloc_comp_constraint_6.f90 @@ -1,4 +1,4 @@ -! { dg-do compile ) +! { dg-do compile } ! PR45889 Regression with I/O of element of allocatable array in derived type module cell implicit none diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_init_expr.f03 b/gcc/testsuite/gfortran.dg/alloc_comp_init_expr.f03 index 5e399ac..02ca7fc 100644 --- a/gcc/testsuite/gfortran.dg/alloc_comp_init_expr.f03 +++ b/gcc/testsuite/gfortran.dg/alloc_comp_init_expr.f03 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! PR fortran/34402 - allocatable components shall not be ! data-initialized in init expr diff --git a/gcc/testsuite/gfortran.dg/allocatable_scalar_11.f90 b/gcc/testsuite/gfortran.dg/allocatable_scalar_11.f90 index 7f4d64d..b9fb108 100644 --- a/gcc/testsuite/gfortran.dg/allocatable_scalar_11.f90 +++ b/gcc/testsuite/gfortran.dg/allocatable_scalar_11.f90 @@ -1,4 +1,4 @@ -! { dg-compile } +! { dg-do compile } ! ! PR fortran/46484 ! diff --git a/gcc/testsuite/gfortran.dg/allocate_scalar_with_shape.f90 b/gcc/testsuite/gfortran.dg/allocate_scalar_with_shape.f90 index 1f4f9d5..0fa9ce1 100644 --- a/gcc/testsuite/gfortran.dg/allocate_scalar_with_shape.f90 +++ b/gcc/testsuite/gfortran.dg/allocate_scalar_with_shape.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! PR fortran/41940 integer, allocatable :: a diff --git a/gcc/testsuite/gfortran.dg/array_function_5.f90 b/gcc/testsuite/gfortran.dg/array_function_5.f90 index 05f3c92..9c95f80 100644 --- a/gcc/testsuite/gfortran.dg/array_function_5.f90 +++ b/gcc/testsuite/gfortran.dg/array_function_5.f90 @@ -1,4 +1,4 @@ -! { dg-do run ) +! { dg-do run } ! PR41278 internal compiler error related to matmul and transpose ! Test case prepared by Jerry DeLisle ! Original test case by Chris diff --git a/gcc/testsuite/gfortran.dg/asynchronous_3.f03 b/gcc/testsuite/gfortran.dg/asynchronous_3.f03 index 7b83374..dfc5e6e 100644 --- a/gcc/testsuite/gfortran.dg/asynchronous_3.f03 +++ b/gcc/testsuite/gfortran.dg/asynchronous_3.f03 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! ! PR fortran/44457 - no array-subscript actual argument ! for an asynchronous dummy diff --git a/gcc/testsuite/gfortran.dg/char_expr_1.f90 b/gcc/testsuite/gfortran.dg/char_expr_1.f90 index ba0e1f2..35bfe34 100644 --- a/gcc/testsuite/gfortran.dg/char_expr_1.f90 +++ b/gcc/testsuite/gfortran.dg/char_expr_1.f90 @@ -1,4 +1,4 @@ -! { dg-do "run" } +! { dg-do run } ! PR fortran/36795 ! "(str)" (= an expression) was regarded as "str" (= a variable) ! and thus when yy was deallocated so was xx. Result: An invalid diff --git a/gcc/testsuite/gfortran.dg/class_14.f03 b/gcc/testsuite/gfortran.dg/class_14.f03 index 9b06b01..4e6db17 100644 --- a/gcc/testsuite/gfortran.dg/class_14.f03 +++ b/gcc/testsuite/gfortran.dg/class_14.f03 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! Test the final fix for PR42353, in which a compilation error was ! occurring because the derived type of the initializer of the vtab ! component '$extends' was not the same as that of the component. diff --git a/gcc/testsuite/gfortran.dg/data_array_6.f b/gcc/testsuite/gfortran.dg/data_array_6.f index 6564402..64b492b 100644 --- a/gcc/testsuite/gfortran.dg/data_array_6.f +++ b/gcc/testsuite/gfortran.dg/data_array_6.f @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! ! PR fortran/38404 - location marker in wrong line ! Testcase contributed by Steve Chapel diff --git a/gcc/testsuite/gfortran.dg/data_invalid.f90 b/gcc/testsuite/gfortran.dg/data_invalid.f90 index 10ea7e5..960a8f3 100644 --- a/gcc/testsuite/gfortran.dg/data_invalid.f90 +++ b/gcc/testsuite/gfortran.dg/data_invalid.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "-std=f95 -fmax-errors=0" } ! ! Testcases from PR fortran/24978 diff --git a/gcc/testsuite/gfortran.dg/dot_product_1.f03 b/gcc/testsuite/gfortran.dg/dot_product_1.f03 index 5ba6633..45d6585 100644 --- a/gcc/testsuite/gfortran.dg/dot_product_1.f03 +++ b/gcc/testsuite/gfortran.dg/dot_product_1.f03 @@ -1,4 +1,4 @@ -! { dg-do "run" } +! { dg-do run } ! Transformational intrinsic DOT_PRODUCT as initialization expression. INTEGER, PARAMETER :: n = 10 diff --git a/gcc/testsuite/gfortran.dg/func_derived_5.f90 b/gcc/testsuite/gfortran.dg/func_derived_5.f90 index afe5ec0..76d45a8 100644 --- a/gcc/testsuite/gfortran.dg/func_derived_5.f90 +++ b/gcc/testsuite/gfortran.dg/func_derived_5.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! PR fortran/41369 - rejected empty type in function return values module m diff --git a/gcc/testsuite/gfortran.dg/func_result_4.f90 b/gcc/testsuite/gfortran.dg/func_result_4.f90 index 81f02a5..c3da2d60 100644 --- a/gcc/testsuite/gfortran.dg/func_result_4.f90 +++ b/gcc/testsuite/gfortran.dg/func_result_4.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "-c" } ! ! Do not apply the SAVE attribute to function results. diff --git a/gcc/testsuite/gfortran.dg/implied_do_1.f90 b/gcc/testsuite/gfortran.dg/implied_do_1.f90 index 7f1266c..d837e8f 100644 --- a/gcc/testsuite/gfortran.dg/implied_do_1.f90 +++ b/gcc/testsuite/gfortran.dg/implied_do_1.f90 @@ -1,4 +1,4 @@ -! { dg-do "run" } +! { dg-do run } ! PR fortran/29458 - spurious warning for implied do-loop counter integer :: n, i diff --git a/gcc/testsuite/gfortran.dg/initialization_25.f90 b/gcc/testsuite/gfortran.dg/initialization_25.f90 index fc667f4..66c447e 100644 --- a/gcc/testsuite/gfortran.dg/initialization_25.f90 +++ b/gcc/testsuite/gfortran.dg/initialization_25.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! ! PR fortran/35779 - unrelated error message ! Tescase contributed by diff --git a/gcc/testsuite/gfortran.dg/initialization_26.f90 b/gcc/testsuite/gfortran.dg/initialization_26.f90 index d5bc93b..4532216 100644 --- a/gcc/testsuite/gfortran.dg/initialization_26.f90 +++ b/gcc/testsuite/gfortran.dg/initialization_26.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! ! Verify that the outer do-loop counter 'j' is accepted as ! as end-expression of the inner loop. diff --git a/gcc/testsuite/gfortran.dg/interface_34.f90 b/gcc/testsuite/gfortran.dg/interface_34.f90 index 3e409d5..880f179 100644 --- a/gcc/testsuite/gfortran.dg/interface_34.f90 +++ b/gcc/testsuite/gfortran.dg/interface_34.f90 @@ -1,4 +1,4 @@ -! { dg-compile } +! { dg-do compile } ! ! PR fortran/47042 ! diff --git a/gcc/testsuite/gfortran.dg/iso_c_binding_init_expr.f03 b/gcc/testsuite/gfortran.dg/iso_c_binding_init_expr.f03 index 840b60e..0a00996 100644 --- a/gcc/testsuite/gfortran.dg/iso_c_binding_init_expr.f03 +++ b/gcc/testsuite/gfortran.dg/iso_c_binding_init_expr.f03 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! PR fortran/42354 use iso_c_binding diff --git a/gcc/testsuite/gfortran.dg/keyword_symbol_1.f90 b/gcc/testsuite/gfortran.dg/keyword_symbol_1.f90 index 7195f25..2661897 100644 --- a/gcc/testsuite/gfortran.dg/keyword_symbol_1.f90 +++ b/gcc/testsuite/gfortran.dg/keyword_symbol_1.f90 @@ -1,4 +1,4 @@ -! ' dg-do compile } +! { dg-do compile } ! This tests the fix for PR28526, in which a public interface named ! 'end' would be treated as a variable because the matcher tried ! 'END INTERFACE' as an assignment and left the symbol modified in diff --git a/gcc/testsuite/gfortran.dg/matmul_8.f03 b/gcc/testsuite/gfortran.dg/matmul_8.f03 index d73fdcd..fcd4b0d 100644 --- a/gcc/testsuite/gfortran.dg/matmul_8.f03 +++ b/gcc/testsuite/gfortran.dg/matmul_8.f03 @@ -1,4 +1,4 @@ -! { dg-do "run" } +! { dg-do run } ! Transformational intrinsic MATMUL as initialization expression. REAL, PARAMETER :: PI = 3.141592654, theta = PI/6.0 diff --git a/gcc/testsuite/gfortran.dg/merge_init_expr.f90 b/gcc/testsuite/gfortran.dg/merge_init_expr.f90 index f40f490..c691aa0 100644 --- a/gcc/testsuite/gfortran.dg/merge_init_expr.f90 +++ b/gcc/testsuite/gfortran.dg/merge_init_expr.f90 @@ -1,4 +1,4 @@ -! { dg-do "run" } +! { dg-do run } ! ! Check simplification of MERGE. ! diff --git a/gcc/testsuite/gfortran.dg/pack_assign_1.f90 b/gcc/testsuite/gfortran.dg/pack_assign_1.f90 index 4bab0da..7c480fc 100644 --- a/gcc/testsuite/gfortran.dg/pack_assign_1.f90 +++ b/gcc/testsuite/gfortran.dg/pack_assign_1.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! PR32890 - compile-time checks for assigments INTEGER :: it, neighbrs(42) ! anything but 30 diff --git a/gcc/testsuite/gfortran.dg/pack_vector_1.f90 b/gcc/testsuite/gfortran.dg/pack_vector_1.f90 index ba3624e..956bb16 100644 --- a/gcc/testsuite/gfortran.dg/pack_vector_1.f90 +++ b/gcc/testsuite/gfortran.dg/pack_vector_1.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! ! Check that the VECTOR argument of the PACK intrinsic has at least ! as many elements as the MASK has .TRUE. values. diff --git a/gcc/testsuite/gfortran.dg/pointer_check_8.f90 b/gcc/testsuite/gfortran.dg/pointer_check_8.f90 index b47aa97..99c6652 100644 --- a/gcc/testsuite/gfortran.dg/pointer_check_8.f90 +++ b/gcc/testsuite/gfortran.dg/pointer_check_8.f90 @@ -1,4 +1,4 @@ -! { dg-do compile} +! { dg-do compile } ! { dg-options "-fcheck=pointer" } ! ! PR 46809: [OOP] ICE with -fcheck=pointer for CLASS IS diff --git a/gcc/testsuite/gfortran.dg/product_init_expr.f03 b/gcc/testsuite/gfortran.dg/product_init_expr.f03 index 6724eb7..c6ff7e8 100644 --- a/gcc/testsuite/gfortran.dg/product_init_expr.f03 +++ b/gcc/testsuite/gfortran.dg/product_init_expr.f03 @@ -1,4 +1,4 @@ -! { dg-do "run" } +! { dg-do run } ! { dg-options "-fno-inline" } ! ! PRODUCT as initialization expression. diff --git a/gcc/testsuite/gfortran.dg/reshape_order_5.f90 b/gcc/testsuite/gfortran.dg/reshape_order_5.f90 index 9c76b88..2ef5fce 100644 --- a/gcc/testsuite/gfortran.dg/reshape_order_5.f90 +++ b/gcc/testsuite/gfortran.dg/reshape_order_5.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! ! PR fortran/37203 - check RESHAPE arguments ! diff --git a/gcc/testsuite/gfortran.dg/reshape_shape_1.f90 b/gcc/testsuite/gfortran.dg/reshape_shape_1.f90 index 008c9a8..bd5e3cb 100644 --- a/gcc/testsuite/gfortran.dg/reshape_shape_1.f90 +++ b/gcc/testsuite/gfortran.dg/reshape_shape_1.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! ! PR fortran/37203 - check RESHAPE arguments ! diff --git a/gcc/testsuite/gfortran.dg/reshape_zerosize_2.f90 b/gcc/testsuite/gfortran.dg/reshape_zerosize_2.f90 index cdbee42..474ea30 100644 --- a/gcc/testsuite/gfortran.dg/reshape_zerosize_2.f90 +++ b/gcc/testsuite/gfortran.dg/reshape_zerosize_2.f90 @@ -1,4 +1,4 @@ -! { dg-do "run" } +! { dg-do run } ! Simplifier of RESHAPE was broken when reshaping an empty array. INTEGER, PARAMETER :: empty(0,0) = RESHAPE(SHAPE(1), (/0, 0/)) diff --git a/gcc/testsuite/gfortran.dg/same_name_2.f90 b/gcc/testsuite/gfortran.dg/same_name_2.f90 index 948ff75..c8da3e1 100644 --- a/gcc/testsuite/gfortran.dg/same_name_2.f90 +++ b/gcc/testsuite/gfortran.dg/same_name_2.f90 @@ -1,4 +1,4 @@ -! ( dg-do compile } +! { dg-do compile } ! Tests the fix for PR27701, in which two same name procedures ! were not diagnosed if they had no arguments. ! diff --git a/gcc/testsuite/gfortran.dg/selected_real_kind_1.f90 b/gcc/testsuite/gfortran.dg/selected_real_kind_1.f90 index 0f40a59..f771f9a 100644 --- a/gcc/testsuite/gfortran.dg/selected_real_kind_1.f90 +++ b/gcc/testsuite/gfortran.dg/selected_real_kind_1.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! ! PR fortran/44347 - arguments of SELECTED_REAL_KIND shall be scalar ! Testcase contributed by Vittorio Zecca diff --git a/gcc/testsuite/gfortran.dg/spread_init_expr.f03 b/gcc/testsuite/gfortran.dg/spread_init_expr.f03 index a8bdc5e..05714f6 100644 --- a/gcc/testsuite/gfortran.dg/spread_init_expr.f03 +++ b/gcc/testsuite/gfortran.dg/spread_init_expr.f03 @@ -1,4 +1,4 @@ -! { dg-do "run" } +! { dg-do run } INTEGER, PARAMETER :: n = 5 INTEGER, PARAMETER :: a1(n) = SPREAD(1, 1, n) diff --git a/gcc/testsuite/gfortran.dg/stmt_func_1.f90 b/gcc/testsuite/gfortran.dg/stmt_func_1.f90 index 072f21b..472d7d7 100644 --- a/gcc/testsuite/gfortran.dg/stmt_func_1.f90 +++ b/gcc/testsuite/gfortran.dg/stmt_func_1.f90 @@ -1,4 +1,4 @@ -! { dg-compile } +! { dg-do compile } ! { dg-options "" } ! ! PR fortran/47542 diff --git a/gcc/testsuite/gfortran.dg/sum_init_expr.f03 b/gcc/testsuite/gfortran.dg/sum_init_expr.f03 index 9071a41..f0cfe95 100644 --- a/gcc/testsuite/gfortran.dg/sum_init_expr.f03 +++ b/gcc/testsuite/gfortran.dg/sum_init_expr.f03 @@ -1,4 +1,4 @@ -! { dg-do "run" } +! { dg-do run } ! { dg-options "-fno-inline" } ! ! SUM as initialization expression. diff --git a/gcc/testsuite/gfortran.dg/transpose_3.f03 b/gcc/testsuite/gfortran.dg/transpose_3.f03 index b245166..269db49 100644 --- a/gcc/testsuite/gfortran.dg/transpose_3.f03 +++ b/gcc/testsuite/gfortran.dg/transpose_3.f03 @@ -1,4 +1,4 @@ -! { dg-do "run" } +! { dg-do run } ! Transformational intrinsic TRANSPOSE as initialization expression. INTEGER, PARAMETER :: n = 10 diff --git a/gcc/testsuite/gfortran.dg/unpack_init_expr.f03 b/gcc/testsuite/gfortran.dg/unpack_init_expr.f03 index 78460d1..924694c 100644 --- a/gcc/testsuite/gfortran.dg/unpack_init_expr.f03 +++ b/gcc/testsuite/gfortran.dg/unpack_init_expr.f03 @@ -1,4 +1,4 @@ -! { dg-do "run" } +! { dg-do run } ! ! Example from F2003, sec 13.7.125 ! diff --git a/gcc/testsuite/gfortran.dg/warn_conversion.f90 b/gcc/testsuite/gfortran.dg/warn_conversion.f90 index c8f0e23..e9b7e39 100644 --- a/gcc/testsuite/gfortran.dg/warn_conversion.f90 +++ b/gcc/testsuite/gfortran.dg/warn_conversion.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "-Wconversion" } ! diff --git a/gcc/testsuite/gfortran.dg/warn_conversion_2.f90 b/gcc/testsuite/gfortran.dg/warn_conversion_2.f90 index c022298..d2b4eec 100644 --- a/gcc/testsuite/gfortran.dg/warn_conversion_2.f90 +++ b/gcc/testsuite/gfortran.dg/warn_conversion_2.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "-Wconversion-extra" } real(8) :: sqrt2 diff --git a/gcc/testsuite/gfortran.dg/warn_intent_out_not_set.f90 b/gcc/testsuite/gfortran.dg/warn_intent_out_not_set.f90 index 52b2315..76c62ea 100644 --- a/gcc/testsuite/gfortran.dg/warn_intent_out_not_set.f90 +++ b/gcc/testsuite/gfortran.dg/warn_intent_out_not_set.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "-c -Wall" } ! ! PR fortran/42360 diff --git a/gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_1.f90 b/gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_1.f90 index 94e74c9..66b0f1a 100644 --- a/gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_1.f90 +++ b/gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_1.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "-Wall" } ! ! PR fortran/38407 diff --git a/gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_2.f90 b/gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_2.f90 index 85472dd..6a2233b 100644 --- a/gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_2.f90 +++ b/gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_2.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "-Wall -Wno-unused-dummy-argument" } ! ! PR fortran/38407 diff --git a/gcc/testsuite/gfortran.dg/whole_file_16.f90 b/gcc/testsuite/gfortran.dg/whole_file_16.f90 index 2a17d0b..048350f 100644 --- a/gcc/testsuite/gfortran.dg/whole_file_16.f90 +++ b/gcc/testsuite/gfortran.dg/whole_file_16.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "-fwhole-file" } ! ! PR fortran/31346 diff --git a/gcc/testsuite/gfortran.dg/whole_file_17.f90 b/gcc/testsuite/gfortran.dg/whole_file_17.f90 index deaddf9..86272b8 100644 --- a/gcc/testsuite/gfortran.dg/whole_file_17.f90 +++ b/gcc/testsuite/gfortran.dg/whole_file_17.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "-fwhole-file" } ! ! PR fortran/30668 diff --git a/gcc/testsuite/gfortran.dg/whole_file_18.f90 b/gcc/testsuite/gfortran.dg/whole_file_18.f90 index fac15d6..f758408f 100644 --- a/gcc/testsuite/gfortran.dg/whole_file_18.f90 +++ b/gcc/testsuite/gfortran.dg/whole_file_18.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "-fwhole-file -Wno-unused-dummy-argument" } ! ! PR fortran/34260 diff --git a/gcc/testsuite/gfortran.dg/whole_file_20.f03 b/gcc/testsuite/gfortran.dg/whole_file_20.f03 index 231a5aa..61e2a4d 100644 --- a/gcc/testsuite/gfortran.dg/whole_file_20.f03 +++ b/gcc/testsuite/gfortran.dg/whole_file_20.f03 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "-fwhole-file -fcoarray=single" } ! ! Procedures with dummy arguments that are coarrays or polymorphic diff --git a/gcc/testsuite/gfortran.dg/whole_file_5.f90 b/gcc/testsuite/gfortran.dg/whole_file_5.f90 index 0ba8ffe..34240c9 100644 --- a/gcc/testsuite/gfortran.dg/whole_file_5.f90 +++ b/gcc/testsuite/gfortran.dg/whole_file_5.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "-O3 -fwhole-file -fdump-tree-optimized" } ! { dg-add-options bind_pic_locally } ! diff --git a/gcc/testsuite/gfortran.dg/whole_file_6.f90 b/gcc/testsuite/gfortran.dg/whole_file_6.f90 index 266c289..1d92bc3 100644 --- a/gcc/testsuite/gfortran.dg/whole_file_6.f90 +++ b/gcc/testsuite/gfortran.dg/whole_file_6.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "-O3 -fwhole-file -fdump-tree-optimized" } ! { dg-add-options bind_pic_locally } ! diff --git a/gcc/testsuite/gfortran.dg/write_invalid_format.f90 b/gcc/testsuite/gfortran.dg/write_invalid_format.f90 index fb60313..8de7bc2 100644 --- a/gcc/testsuite/gfortran.dg/write_invalid_format.f90 +++ b/gcc/testsuite/gfortran.dg/write_invalid_format.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! PR fortran/35582 - ICE on invalid format ! Testcase contributed by ! Leandro Martinez diff --git a/gcc/testsuite/gfortran.dg/zero_sized_6.f90 b/gcc/testsuite/gfortran.dg/zero_sized_6.f90 index 30ed8df..f944fd9 100644 --- a/gcc/testsuite/gfortran.dg/zero_sized_6.f90 +++ b/gcc/testsuite/gfortran.dg/zero_sized_6.f90 @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! PR38709 - ICE-on-invalid on zero-sized array in init-expr. INTEGER, PARAMETER :: a(1) = (/ 1 /)