From: dje Date: Sun, 13 Sep 2015 18:54:59 +0000 (+0000) Subject: * gfortran.dg/private_type_3.f90: Require visibility. X-Git-Tag: upstream/6.1~4735 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=82eb609815570a7c626cfe0a5faacf057af89355;p=platform%2Fupstream%2Flinaro-gcc.git * gfortran.dg/private_type_3.f90: Require visibility. * gfortran.dg/module_variable_2.f90: Same. * gfortran.dg/nested_forall_1.f: Same. * gfortran.dg/elemental_dependency_4.f90: Same. * gfortran.dg/bind_c_usage_25.f90: Same. * gfortran.dg/access_spec_1.f90: Same. * gfortran.dg/public_private_module_2.f90: Same. * gfortran.dg/host_assoc_variable_1.f90: Same. * gfortran.dg/public_private_module_6.f90: Same. * gfortran.dg/module_variable_1.f90: Same. * gfortran.dg/pr37286.f90: Same. * gfortran.dg/internal_pack_7.f90: Same. * gfortran.dg/submodule_10.f08: Same. * gfortran.dg/allocatable_function_8.f90: Same. * gfortran.dg/merge_init_expr_2.f90: Same. * gfortran.dg/class_37.f03: Same. * gfortran.dg/vect/fast-math-vect-8.f90: Same. * gfortran.dg/typebound_call_20.f03: Same. * gfortran.dg/proc_ptr_result_3.f90: Same. * gfortran.dg/pr32535.f90: Same. * gfortran.dg/typebound_proc_19.f90: Same. * gfortran.dg/initialization_10.f90: Same. * gfortran.dg/bind_c_usage_8.f03: Same. * gfortran.dg/pr61335.f90: Same. * gfortran.dg/elemental_dependency_5.f90: Same. * gfortran.dg/proc_ptr_3.f90: Same. * gfortran.dg/debug/pr46756.f: XFAIL on AIX. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@227730 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9910f50..65dde8c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,33 @@ +2015-09-13 David Edelsohn + + * gfortran.dg/private_type_3.f90: Require visibility. + * gfortran.dg/module_variable_2.f90: Same. + * gfortran.dg/nested_forall_1.f: Same. + * gfortran.dg/elemental_dependency_4.f90: Same. + * gfortran.dg/bind_c_usage_25.f90: Same. + * gfortran.dg/access_spec_1.f90: Same. + * gfortran.dg/public_private_module_2.f90: Same. + * gfortran.dg/host_assoc_variable_1.f90: Same. + * gfortran.dg/public_private_module_6.f90: Same. + * gfortran.dg/module_variable_1.f90: Same. + * gfortran.dg/pr37286.f90: Same. + * gfortran.dg/internal_pack_7.f90: Same. + * gfortran.dg/submodule_10.f08: Same. + * gfortran.dg/allocatable_function_8.f90: Same. + * gfortran.dg/merge_init_expr_2.f90: Same. + * gfortran.dg/class_37.f03: Same. + * gfortran.dg/vect/fast-math-vect-8.f90: Same. + * gfortran.dg/typebound_call_20.f03: Same. + * gfortran.dg/proc_ptr_result_3.f90: Same. + * gfortran.dg/pr32535.f90: Same. + * gfortran.dg/typebound_proc_19.f90: Same. + * gfortran.dg/initialization_10.f90: Same. + * gfortran.dg/bind_c_usage_8.f03: Same. + * gfortran.dg/pr61335.f90: Same. + * gfortran.dg/elemental_dependency_5.f90: Same. + * gfortran.dg/proc_ptr_3.f90: Same. + * gfortran.dg/debug/pr46756.f: XFAIL on AIX. + 2015-09-13 Eric Botcazou * gcc.dg/torture/type-generic-1.c: Pass -DUNSAFE for Visium. diff --git a/gcc/testsuite/gfortran.dg/access_spec_1.f90 b/gcc/testsuite/gfortran.dg/access_spec_1.f90 index 8bebd11..90c74cd 100644 --- a/gcc/testsuite/gfortran.dg/access_spec_1.f90 +++ b/gcc/testsuite/gfortran.dg/access_spec_1.f90 @@ -1,4 +1,5 @@ ! { dg-do compile } +! { dg-require-visibility "" } ! PR fortran/31472 ! Access specifications: Valid Fortran 2003 code module mod diff --git a/gcc/testsuite/gfortran.dg/allocatable_function_8.f90 b/gcc/testsuite/gfortran.dg/allocatable_function_8.f90 index 48f6dd2..fc4b05e 100644 --- a/gcc/testsuite/gfortran.dg/allocatable_function_8.f90 +++ b/gcc/testsuite/gfortran.dg/allocatable_function_8.f90 @@ -1,4 +1,5 @@ ! { dg-do run } +! { dg-require-visibility "" } ! Test the fix for PR61459 and PR58883. ! ! Contributed by John Wingate diff --git a/gcc/testsuite/gfortran.dg/bind_c_usage_25.f90 b/gcc/testsuite/gfortran.dg/bind_c_usage_25.f90 index ae3cf07..a50be36 100644 --- a/gcc/testsuite/gfortran.dg/bind_c_usage_25.f90 +++ b/gcc/testsuite/gfortran.dg/bind_c_usage_25.f90 @@ -1,5 +1,6 @@ ! { dg-do compile } ! { dg-options "-Wno-c-binding-type" } +! { dg-require-visibility "" } ! ! That's a copy of "bind_c_usage_8.f03", "bind_c_dts_4.f03", ! "bind_c_implicit_vars.f03" and "c_kind_tests_2.f03" diff --git a/gcc/testsuite/gfortran.dg/bind_c_usage_8.f03 b/gcc/testsuite/gfortran.dg/bind_c_usage_8.f03 index 15843b5..0481242 100644 --- a/gcc/testsuite/gfortran.dg/bind_c_usage_8.f03 +++ b/gcc/testsuite/gfortran.dg/bind_c_usage_8.f03 @@ -1,5 +1,6 @@ ! { dg-do compile } ! { dg-options "-Wc-binding-type" } +! { dg-require-visibility "" } ! This should compile, though there is a warning about the type of len ! (return variable of strlen()) for being implicit. ! PR fortran/32797 diff --git a/gcc/testsuite/gfortran.dg/class_37.f03 b/gcc/testsuite/gfortran.dg/class_37.f03 index 1d75999..0473164 100644 --- a/gcc/testsuite/gfortran.dg/class_37.f03 +++ b/gcc/testsuite/gfortran.dg/class_37.f03 @@ -1,4 +1,5 @@ ! { dg-do compile } +! { dg-require-visibility "" } ! Test fix for PR47082, in which an ICE in the ALLOCATE at line 248. ! ! Contributed by Salvatore Filippone diff --git a/gcc/testsuite/gfortran.dg/debug/pr46756.f b/gcc/testsuite/gfortran.dg/debug/pr46756.f index fab06e3..ffe6a02 100644 --- a/gcc/testsuite/gfortran.dg/debug/pr46756.f +++ b/gcc/testsuite/gfortran.dg/debug/pr46756.f @@ -1,6 +1,8 @@ C PR debug/46756, reduced from ../20010519-1.f C { dg-do compile } C { dg-options "-O -fcompare-debug" } +C { dg-xfail-if "compare-debug" { powerpc-ibm-aix* } { "*" } { "" } } + LOGICAL QDISK,QDW,QCMPCT LOGICAL LNOMA,LRAISE,LSCI,LBIG ASSIGN 801 TO I800 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } diff --git a/gcc/testsuite/gfortran.dg/elemental_dependency_4.f90 b/gcc/testsuite/gfortran.dg/elemental_dependency_4.f90 index 9aa2f88..79dd7ce 100644 --- a/gcc/testsuite/gfortran.dg/elemental_dependency_4.f90 +++ b/gcc/testsuite/gfortran.dg/elemental_dependency_4.f90 @@ -1,5 +1,6 @@ ! { dg-do run } ! { dg-additional-options "-fdump-tree-original" } +! { dg-require-visibility "" } ! ! Tests the fix for PR64952, in which the assignment to 'array' should ! have generated a temporary because of the references to the lhs in diff --git a/gcc/testsuite/gfortran.dg/elemental_dependency_5.f90 b/gcc/testsuite/gfortran.dg/elemental_dependency_5.f90 index 42e9269..71a8c48 100644 --- a/gcc/testsuite/gfortran.dg/elemental_dependency_5.f90 +++ b/gcc/testsuite/gfortran.dg/elemental_dependency_5.f90 @@ -1,4 +1,5 @@ ! { dg-do run } +! { dg-require-visibility "" } ! ! Tests the fix for PR64952. ! diff --git a/gcc/testsuite/gfortran.dg/host_assoc_variable_1.f90 b/gcc/testsuite/gfortran.dg/host_assoc_variable_1.f90 index 5723115..55a97c5 100644 --- a/gcc/testsuite/gfortran.dg/host_assoc_variable_1.f90 +++ b/gcc/testsuite/gfortran.dg/host_assoc_variable_1.f90 @@ -1,4 +1,5 @@ ! { dg-do compile } +! { dg-require-visibility "" } ! This tests that PR32760, in its various manifestations is fixed. ! ! Contributed by Harald Anlauf diff --git a/gcc/testsuite/gfortran.dg/initialization_10.f90 b/gcc/testsuite/gfortran.dg/initialization_10.f90 index d8e82d5..b99c8ff 100644 --- a/gcc/testsuite/gfortran.dg/initialization_10.f90 +++ b/gcc/testsuite/gfortran.dg/initialization_10.f90 @@ -1,4 +1,5 @@ ! { dg-do compile } +! { dg-require-visibility "" } ! ! PR fortran/32867 - nested initialization expression not simplified ! diff --git a/gcc/testsuite/gfortran.dg/internal_pack_7.f90 b/gcc/testsuite/gfortran.dg/internal_pack_7.f90 index 967835e..1241510 100644 --- a/gcc/testsuite/gfortran.dg/internal_pack_7.f90 +++ b/gcc/testsuite/gfortran.dg/internal_pack_7.f90 @@ -1,5 +1,6 @@ ! { dg-do compile } ! { dg-options "-fdump-tree-original" } +! { dg-require-visibility "" } ! ! Test the fix for PR43072, in which unnecessary calls to ! internal PACK/UNPACK were being generated. diff --git a/gcc/testsuite/gfortran.dg/merge_init_expr_2.f90 b/gcc/testsuite/gfortran.dg/merge_init_expr_2.f90 index 71bc3a5..c761a47 100644 --- a/gcc/testsuite/gfortran.dg/merge_init_expr_2.f90 +++ b/gcc/testsuite/gfortran.dg/merge_init_expr_2.f90 @@ -1,5 +1,6 @@ ! { dg-do compile } ! { dg-options "-fdump-tree-original" } +! { dg-require-visibility "" } ! ! PR fortran/56649 ! MERGE was not properly compile-time simplified diff --git a/gcc/testsuite/gfortran.dg/module_variable_1.f90 b/gcc/testsuite/gfortran.dg/module_variable_1.f90 index fcf6df8..38b915e 100644 --- a/gcc/testsuite/gfortran.dg/module_variable_1.f90 +++ b/gcc/testsuite/gfortran.dg/module_variable_1.f90 @@ -1,5 +1,6 @@ ! { dg-do compile } ! { dg-options "-Wall" } +! { dg-require-visibility "" } module foo integer, private :: i ! { dg-warning "Unused PRIVATE" } integer, private :: j = 0 diff --git a/gcc/testsuite/gfortran.dg/module_variable_2.f90 b/gcc/testsuite/gfortran.dg/module_variable_2.f90 index ed5b903..f28760e 100644 --- a/gcc/testsuite/gfortran.dg/module_variable_2.f90 +++ b/gcc/testsuite/gfortran.dg/module_variable_2.f90 @@ -1,5 +1,6 @@ ! { dg-do compile } ! { dg-options "-Wall -fmodule-private" } +! { dg-require-visibility "" } module bar integer :: i ! { dg-warning "Unused PRIVATE" } diff --git a/gcc/testsuite/gfortran.dg/nested_forall_1.f b/gcc/testsuite/gfortran.dg/nested_forall_1.f index bf93b6b..5cb8ee0 100644 --- a/gcc/testsuite/gfortran.dg/nested_forall_1.f +++ b/gcc/testsuite/gfortran.dg/nested_forall_1.f @@ -1,4 +1,5 @@ ! { dg-do compile } +! { dg-require-visibility "" } ! ! PR fortran/35820 ! diff --git a/gcc/testsuite/gfortran.dg/pr32535.f90 b/gcc/testsuite/gfortran.dg/pr32535.f90 index e168821..4cfe941 100644 --- a/gcc/testsuite/gfortran.dg/pr32535.f90 +++ b/gcc/testsuite/gfortran.dg/pr32535.f90 @@ -1,4 +1,5 @@ ! { dg-do compile } +! { dg-require-visibility "" } ! ! PR32535: namelist with private items contained in sub-sub-procedure of a module rejected ! diff --git a/gcc/testsuite/gfortran.dg/pr37286.f90 b/gcc/testsuite/gfortran.dg/pr37286.f90 index 607fca4..f84de04 100644 --- a/gcc/testsuite/gfortran.dg/pr37286.f90 +++ b/gcc/testsuite/gfortran.dg/pr37286.f90 @@ -1,4 +1,5 @@ ! { dg-do compile } +! { dg-require-visibility "" } module general_rand implicit none diff --git a/gcc/testsuite/gfortran.dg/pr61335.f90 b/gcc/testsuite/gfortran.dg/pr61335.f90 index c1dff97..c4954ca 100644 --- a/gcc/testsuite/gfortran.dg/pr61335.f90 +++ b/gcc/testsuite/gfortran.dg/pr61335.f90 @@ -1,4 +1,5 @@ ! { dg-do run } +! { dg-require-visibility "" } ! { dg-additional-options "-fbounds-check" } MODULE cp_units diff --git a/gcc/testsuite/gfortran.dg/private_type_3.f90 b/gcc/testsuite/gfortran.dg/private_type_3.f90 index 89ffa63..84bacd5 100644 --- a/gcc/testsuite/gfortran.dg/private_type_3.f90 +++ b/gcc/testsuite/gfortran.dg/private_type_3.f90 @@ -1,5 +1,6 @@ ! { dg-do compile } ! { dg-options "-O0" } +! { dg-require-visibility "" } ! Tests the fix for PR24207 and the problems associated ! with the fix for PR21986. In two cases, use associated ! public symbols were taking on the default private access diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_3.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_3.f90 index b69ae9c..1b14681 100644 --- a/gcc/testsuite/gfortran.dg/proc_ptr_3.f90 +++ b/gcc/testsuite/gfortran.dg/proc_ptr_3.f90 @@ -1,4 +1,5 @@ ! { dg-do run } +! { dg-require-visibility "" } ! ! PROCEDURE POINTERS without the PROCEDURE statement ! diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_result_3.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_result_3.f90 index 6e2e524..3ed899c 100644 --- a/gcc/testsuite/gfortran.dg/proc_ptr_result_3.f90 +++ b/gcc/testsuite/gfortran.dg/proc_ptr_result_3.f90 @@ -1,4 +1,5 @@ -!{ dg-do run } +! { dg-do run } +! { dg-require-visibility "" } ! ! PR 36704: Procedure pointer as function result ! diff --git a/gcc/testsuite/gfortran.dg/public_private_module_2.f90 b/gcc/testsuite/gfortran.dg/public_private_module_2.f90 index 4c72b2c..e84429e 100644 --- a/gcc/testsuite/gfortran.dg/public_private_module_2.f90 +++ b/gcc/testsuite/gfortran.dg/public_private_module_2.f90 @@ -1,8 +1,9 @@ ! { dg-do compile } ! { dg-options "-O2" } +! { dg-require-visibility "" } ! ! PR fortran/52751 (top, "module mod") -! PR fortran/40973 (bottom, "module m" +! PR fortran/40973 (bottom, "module m") ! ! Ensure that (only) those module variables and procedures which are PRIVATE ! and have no C-binding label are optimized away. diff --git a/gcc/testsuite/gfortran.dg/public_private_module_6.f90 b/gcc/testsuite/gfortran.dg/public_private_module_6.f90 index 75b1a97..b9145af 100644 --- a/gcc/testsuite/gfortran.dg/public_private_module_6.f90 +++ b/gcc/testsuite/gfortran.dg/public_private_module_6.f90 @@ -1,5 +1,6 @@ ! { dg-do compile } ! { dg-options "-O1" } +! { dg-require-visibility "" } ! ! PR fortran/54221 ! diff --git a/gcc/testsuite/gfortran.dg/submodule_10.f08 b/gcc/testsuite/gfortran.dg/submodule_10.f08 index 4671e39..e956b29 100644 --- a/gcc/testsuite/gfortran.dg/submodule_10.f08 +++ b/gcc/testsuite/gfortran.dg/submodule_10.f08 @@ -1,4 +1,5 @@ ! { dg-do compile } +! { dg-require-visibility "" } ! ! Checks that PRIVATE enities are visible to submodules. ! diff --git a/gcc/testsuite/gfortran.dg/typebound_call_20.f03 b/gcc/testsuite/gfortran.dg/typebound_call_20.f03 index 8ee7302..3936dd8 100644 --- a/gcc/testsuite/gfortran.dg/typebound_call_20.f03 +++ b/gcc/testsuite/gfortran.dg/typebound_call_20.f03 @@ -1,4 +1,5 @@ ! { dg-do run } +! { dg-require-visibility "" } ! ! PR 47565: [4.6 Regression][OOP] Segfault with TBP ! diff --git a/gcc/testsuite/gfortran.dg/typebound_proc_19.f90 b/gcc/testsuite/gfortran.dg/typebound_proc_19.f90 index b9068b6..1661ff9 100644 --- a/gcc/testsuite/gfortran.dg/typebound_proc_19.f90 +++ b/gcc/testsuite/gfortran.dg/typebound_proc_19.f90 @@ -1,4 +1,5 @@ ! { dg-do compile } +! { dg-require-visibility "" } ! ! PR fortran/47399 ! diff --git a/gcc/testsuite/gfortran.dg/vect/fast-math-vect-8.f90 b/gcc/testsuite/gfortran.dg/vect/fast-math-vect-8.f90 index a2dbbe1..fe2c9e3 100644 --- a/gcc/testsuite/gfortran.dg/vect/fast-math-vect-8.f90 +++ b/gcc/testsuite/gfortran.dg/vect/fast-math-vect-8.f90 @@ -1,5 +1,6 @@ ! { dg-do compile } ! { dg-require-effective-target vect_float } +! { dg-require-visibility "" } module solv_cap