From c9baa85f1db0fe234dffe06216472a3469ec33ee Mon Sep 17 00:00:00 2001
From: David Edelsohn <dje.gcc@gmail.com>
Date: Sun, 13 Sep 2015 18:54:59 +0000
Subject: [PATCH] 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
---
 gcc/testsuite/ChangeLog                       | 30 +++++++++++++++++++
 gcc/testsuite/gfortran.dg/access_spec_1.f90   |  1 +
 .../gfortran.dg/allocatable_function_8.f90    |  1 +
 gcc/testsuite/gfortran.dg/bind_c_usage_25.f90 |  1 +
 gcc/testsuite/gfortran.dg/bind_c_usage_8.f03  |  1 +
 gcc/testsuite/gfortran.dg/class_37.f03        |  1 +
 gcc/testsuite/gfortran.dg/debug/pr46756.f     |  2 ++
 .../gfortran.dg/elemental_dependency_4.f90    |  1 +
 .../gfortran.dg/elemental_dependency_5.f90    |  1 +
 .../gfortran.dg/host_assoc_variable_1.f90     |  1 +
 .../gfortran.dg/initialization_10.f90         |  1 +
 gcc/testsuite/gfortran.dg/internal_pack_7.f90 |  1 +
 .../gfortran.dg/merge_init_expr_2.f90         |  1 +
 .../gfortran.dg/module_variable_1.f90         |  1 +
 .../gfortran.dg/module_variable_2.f90         |  1 +
 gcc/testsuite/gfortran.dg/nested_forall_1.f   |  1 +
 gcc/testsuite/gfortran.dg/pr32535.f90         |  1 +
 gcc/testsuite/gfortran.dg/pr37286.f90         |  1 +
 gcc/testsuite/gfortran.dg/pr61335.f90         |  1 +
 gcc/testsuite/gfortran.dg/private_type_3.f90  |  1 +
 gcc/testsuite/gfortran.dg/proc_ptr_3.f90      |  1 +
 .../gfortran.dg/proc_ptr_result_3.f90         |  3 +-
 .../gfortran.dg/public_private_module_2.f90   |  3 +-
 .../gfortran.dg/public_private_module_6.f90   |  1 +
 gcc/testsuite/gfortran.dg/submodule_10.f08    |  1 +
 .../gfortran.dg/typebound_call_20.f03         |  1 +
 .../gfortran.dg/typebound_proc_19.f90         |  1 +
 .../gfortran.dg/vect/fast-math-vect-8.f90     |  1 +
 28 files changed, 60 insertions(+), 2 deletions(-)

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 9910f5028e5..65dde8ccc7b 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 8bebd113130..90c74cd3c48 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 48f6dd21657..fc4b05e0c0a 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 ae3cf07fcb8..a50be36dffa 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 15843b5c9d6..04812422ead 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 1d75999626f..04731642ddc 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 fab06e3949d..ffe6a02cb50 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 9aa2f88dfdd..79dd7ceff31 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 42e92692d02..71a8c480db6 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 57231157c18..55a97c57c38 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 d8e82d519b8..b99c8ff0c6a 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 967835e5f56..1241510b814 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 71bc3a5b083..c761a47cccb 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 fcf6df8d4ab..38b915e6bef 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 ed5b903ca26..f28760ebf62 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 bf93b6b81c8..5cb8ee0febf 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 e16882103da..4cfe94156d6 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 607fca496e5..f84de049a6a 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 c1dff97c9a5..c4954ca4b4d 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 89ffa638d00..84bacd5956d 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 b69ae9c10e0..1b146819f84 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 6e2e5244e91..3ed899ce45c 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 4c72b2cb55d..e84429e1003 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 75b1a972c23..b9145af113e 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 4671e393ddc..e956b2905c3 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 8ee7302c546..3936dd87955 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 b9068b65dd6..1661ff90973 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 a2dbbe18b17..fe2c9e3a4fe 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
 
-- 
2.30.2