From: Dominique d'Humieres <dominiq@lps.ens.fr>
Date: Tue, 3 Nov 2015 18:03:38 +0000 (+0100)
Subject: re PR fortran/67982 (Incorrect -Wunused-function warning)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=aa3d33850faf4de0a1a2b142cefa35326a0d5c0b;p=gcc.git

re PR fortran/67982 (Incorrect -Wunused-function warning)

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

	PR fortran/67982
	* gfortran.dg/warn_unused_function_3.f90: New test.

From-SVN: r229716
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 14253d1d1b3..829e0a8f500 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2015-11-03  Dominique d'Humieres <dominiq@lps.ens.fr>
+
+	PR fortran/67982
+	* gfortran.dg/warn_unused_function_3.f90: New test.
+
 2015-11-03  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gnat.dg/discr45.adb: Only compile the test.
diff --git a/gcc/testsuite/gfortran.dg/warn_unused_function_3.f90 b/gcc/testsuite/gfortran.dg/warn_unused_function_3.f90
new file mode 100644
index 00000000000..63d64ffc7ac
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/warn_unused_function_3.f90
@@ -0,0 +1,35 @@
+! { dg-do compile }
+! { dg-options "-Wunused-function" }
+!
+! PR 67982: Bogus -Wunused-function warning with contained function
+!
+! Contributed by Joost VandeVondele <Joost dot VandeVondele at mat dot ethz dot ch> 
+
+MODULE base
+  INTERFACE 
+    SUBROUTINE bar_int()
+    END SUBROUTINE 
+  END INTERFACE
+  PUBLIC hook
+  PRIVATE 
+  PROCEDURE(bar_int), POINTER :: hook=>NULL()
+END MODULE base
+
+MODULE foo
+  USE base, ONLY: hook  
+  PUBLIC init
+  PRIVATE 
+CONTAINS
+  SUBROUTINE init()
+     hook=>bar
+  END SUBROUTINE init
+  SUBROUTINE bar()
+     WRITE(6,*) "In bar"
+  END SUBROUTINE 
+END MODULE
+
+USE foo, ONLY: init
+USE base, ONLY: hook
+CALL init()
+CALL hook()
+END