2015-11-13 Dominique d'Humieres <dominiq@lps.ens.fr>

	PR fortran/47266
	* gfortran.dg/warn_unused_function_2.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@230298 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 66b3d18..0697b5a 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,15 +1,7 @@
-2015-11-13  Alan Hayward <alan.hayward@arm.com>
-
-       PR tree-optimization/66558
-       * gcc.dg/vect/pr65947-1.c: Add checks.
-       * gcc.dg/vect/pr65947-2.c: Add checks.
-       * gcc.dg/vect/pr65947-3.c: Add checks.
-       * gcc.dg/vect/pr65947-4.c: Add checks.
-       * gcc.dg/vect/pr65947-5.c: Add checks.
-       * gcc.dg/vect/pr65947-6.c: Add checks.
-       * gcc.dg/vect/pr65947-10.c: Add checks.
-       * gcc.dg/vect/pr65947-12.c: New test.
-       * gcc.dg/vect/pr65947-13.c: New test.
+2015-11-13  Dominique d'Humieres <dominiq@lps.ens.fr>
+
+       PR fortran/47266
+       * gfortran.dg/warn_unused_function_2.f90: New test.
 
 2015-11-13  Christophe Lyon  <christophe.lyon@linaro.org>
 

diff --git a/gcc/testsuite/gfortran.dg/module_private_2.f90 b/gcc/testsuite/gfortran.dg/module_private_2.f90
new file mode 100644 (file)
index 0000000..847c58d
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/module_private_2.f90
@@ -0,0 +1,34 @@
+! { dg-do compile }
+! { dg-options "-O2 -fdump-tree-optimized" }
+!
+! PR fortran/47266
+!
+! Check whether the private procedure "priv" is optimized away
+!
+module m
+  implicit none
+  private :: priv
+  private :: export1, export2
+  public  :: pub
+contains
+  integer function priv()
+    priv = 44
+  end function priv
+  integer function export1()
+    export1 = 45
+  end function export1
+  function export2() bind(C) ! { dg-warning "is marked PRIVATE" }
+    use iso_c_binding, only: c_int
+    integer(c_int) :: export2
+    export2 = 46
+  end function export2
+  subroutine pub(a,b)
+    integer :: a
+    procedure(export1), pointer :: b
+    a = priv()
+    b => export1
+  end subroutine pub
+end module m
+! { dg-final { scan-tree-dump-times "priv" 0 "optimized" } }
+! { dg-final { scan-tree-dump-times "export1 \\(\\)" 1 "optimized" } }
+! { dg-final { scan-tree-dump-times "export2 \\(\\)" 1 "optimized" } }