From: Dominique d'Humieres <dominiq@lps.ens.fr>
Date: Fri, 6 Nov 2015 21:49:18 +0000 (+0100)
Subject: re PR fortran/54224 (Warn for unused internal procedures)
X-Git-Tag: basepoints/gcc-7~3283
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=11c7f78838d7587f95e28e6cbf4695a02c37d842;p=thirdparty%2Fgcc.git

re PR fortran/54224 (Warn for unused internal procedures)

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

	PR fortran/54224
	* gfortran.dg/warn_unused_function_2.f90: Add two new
	"defined but not used" subroutines.

From-SVN: r229894
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 725273be5413..774981c21a93 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2015-11-06  Dominique d'Humieres <dominiq@lps.ens.fr>
+
+	PR fortran/54224
+	* gfortran.dg/warn_unused_function_2.f90: Add two new 
+	"defined but not used" subroutines.
+
 2015-11-06  Jakub Jelinek  <jakub@redhat.com>
 
 	* gcc.dg/gomp/ordered-2.c (f1): Expect an extra error.
diff --git a/gcc/testsuite/gfortran.dg/warn_unused_function_2.f90 b/gcc/testsuite/gfortran.dg/warn_unused_function_2.f90
index 8d65dabef89e..958cc969253b 100644
--- a/gcc/testsuite/gfortran.dg/warn_unused_function_2.f90
+++ b/gcc/testsuite/gfortran.dg/warn_unused_function_2.f90
@@ -2,6 +2,7 @@
 ! { dg-options "-Wall" }
 !
 ! [4.8 Regression] PR 54997: -Wunused-function gives false warnings
+! PR 54224: missing warnings with -Wunused-function
 !
 ! Contributed by Janus Weil <janus@gcc.gnu.org>
 
@@ -14,6 +15,9 @@ contains
 
   subroutine s1            ! { dg-warning "defined but not used" }
     call s2(s3)
+    contains
+      subroutine s4        ! { dg-warning "defined but not used" }
+      end subroutine
   end subroutine
 
   subroutine s2(dummy)     ! { dg-warning "Unused dummy argument" }
@@ -30,5 +34,10 @@ subroutine sub
 entry en
 end subroutine
 
+program test
+contains
+  subroutine s5            ! { dg-warning "defined but not used" }
+  end subroutine
+end
 
 ! { dg-final { cleanup-modules "m" } }