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

28 files changed, 60 insertions, 2 deletions

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  <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 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  <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 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  <salvatore.filippone@uniroma2.it>
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 <anlauf@gmx.de>
diff --git a/gcc/testsuite/gfortran.dg/initialization_10.f90 b/gcc/testsuite/gfortran.dg/initialization_10.f90
index d8e82d51..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