private_type_3.f90: Require visibility.

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

From-SVN: r227730

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 9910f5028e5024fd3eff01887ec68523266048a6..65dde8ccc7bea5b16aabc4a552e0fa5a58481056 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,33 @@
+2015-09-13  David Edelsohn  <dje.gcc@gmail.com>
+
+       * 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  <ebotcazou@adacore.com>
 
        * 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 8bebd11313085713f207721c67aa2337387c0fdf..90c74cd3c485c10f2af6045535cc0d4981bbff57 100644 (file)
--- 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 48f6dd2165797a719543ddda8968b8b7e9969ddf..fc4b05e0c0a7c169d61056278cb14c4de1a45d90 100644 (file)
--- 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  <johnww@tds.net>

diff --git a/gcc/testsuite/gfortran.dg/bind_c_usage_25.f90 b/gcc/testsuite/gfortran.dg/bind_c_usage_25.f90
index ae3cf07fcb8ef8b183c9b23aa92b4c94181601bf..a50be36dffa40a52a1cbc8a33460dea7ea6c7f6d 100644 (file)
--- 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 15843b5c9d675eba015cb83f2d4cf6973b912e08..04812422eadf35cf86181750f355a86eb7d8053c 100644 (file)
--- 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 1d75999626f0edf60b18e5d8c4394c238f32915b..04731642ddcdcf6cd53a5d4e04e62a50a124e23f 100644 (file)
--- 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  <salvatore.filippone@uniroma2.it>

diff --git a/gcc/testsuite/gfortran.dg/debug/pr46756.f b/gcc/testsuite/gfortran.dg/debug/pr46756.f
index fab06e3949d140b1b108be47d47ce9cf6406b80d..ffe6a02cb509b4b5b279658eb1cf0f8af513aa54 100644 (file)
--- 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 9aa2f88dfdd722338fc8f338f995efeeb25831c9..79dd7ceff3178e9daacca392acce2338fcfd6d53 100644 (file)
--- 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 42e92692d02e2a48fcda06a52f616224ba9e6722..71a8c480db6e51679a3f604c897dbaa33f3433fc 100644 (file)
--- 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 57231157c181d4c2b02030c7c24b590a4e522602..55a97c57c3831cc0f6c94a2fb9ccbf96a145cdad 100644 (file)
--- 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 <anlauf@gmx.de>

diff --git a/gcc/testsuite/gfortran.dg/initialization_10.f90 b/gcc/testsuite/gfortran.dg/initialization_10.f90
index d8e82d519b8240b9d4609b144e7bc457aec3623c..b99c8ff0c6ab11df61c96e0ea3b9bffdbcf99bb9 100644 (file)
--- 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 967835e5f565d1b4c358527bb7b87d87cfd2fc81..1241510b814855ac7c75166465ea13c80aec139d 100644 (file)
--- 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 71bc3a5b083da686381adbf65e2b471d91293bd8..c761a47cccbdd2a5767a7d044250b10ecd2cecff 100644 (file)
--- 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 fcf6df8d4ab42afa81972503c586b09d28e2033a..38b915e6bef2d767c9b19be3fda915b0390ba5de 100644 (file)
--- 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 ed5b903ca26b8dd88ccbf10348827c54758903e9..f28760ebf625d30e9b96463e3c7a7707344b8fbf 100644 (file)
--- 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 bf93b6b81c8c6be141486f4e49508550a2e4a1c2..5cb8ee0febf92533c8f27b2e48af40ccfbf5a228 100644 (file)
--- 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 e16882103daf7e1997acb03b9c308c71c3f21729..4cfe94156d670cbe0369ae187867fb4296831ed6 100644 (file)
--- 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 607fca496e57e8ba8ed9007da0ffff3d3cdf4522..f84de049a6a62dc625a2e419b8ba574f8ca75d02 100644 (file)
--- 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 c1dff97c9a563357567c19620ed7d68e777b21ed..c4954ca4b4d88f0581b8e9cc34fd5af358351975 100644 (file)
--- 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 89ffa638d00a27fa1bdaac17dcee2e7b9aac3ec2..84bacd5956d7ef23e59074f66b8904be6c03e874 100644 (file)
--- 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 b69ae9c10e0844f6a20aa827716036f999e0fed8..1b146819f848dd76883e35d56123b05a0a9b2cb0 100644 (file)
--- 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 6e2e5244e9198777d471342889b671c97bbebae1..3ed899ce45c05c2ba0d506f0bea54dd883d5c9b9 100644 (file)
--- 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 4c72b2cb55d0080ba869ab2f40a8c28bd923e20d..e84429e10033184f8c841e6fcde19edaf328ba28 100644 (file)
--- 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 75b1a972c2370370f46a8c01d291f5a2b1da312f..b9145af113e82f1cf34c77586ccda58953e0a990 100644 (file)
--- 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 4671e393ddc411f6e7a0aa3936045f6d1c9e1f34..e956b2905c316ba53923a98e5c9c9ad42cf982d0 100644 (file)
--- 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 8ee7302c546471f151fc00f8c1e389567d421802..3936dd879559085e3e7924858c25da149c44776c 100644 (file)
--- 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 b9068b65dd6dc890f9a22e30005391bfff321d94..1661ff909735d70850dbf3a5dc5b65c5c90add76 100644 (file)
--- 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 a2dbbe18b174a2cef6d24046c87d1286b3117a2b..fe2c9e3a4fe8ed0c548c6097258fb972a5426510 100644 (file)
--- 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