diff options
| author | Dominique d'Humieres <dominiq@lps.ens.fr> | 2015-11-06 22:49:18 +0100 |
|---|---|---|
| committer | Dominique d'Humieres <dominiq@gcc.gnu.org> | 2015-11-06 22:49:18 +0100 |
| commit | 11c7f78838d7587f95e28e6cbf4695a02c37d842 (patch) | |
| tree | 60f5aefb1ee5f60fbaded26940bbf3cb085e7297 | |
| parent | 41fdbd5440670eba362bfe7897d66fcd9aa01cb2 (diff) | |
| download | gcc-11c7f78838d7587f95e28e6cbf4695a02c37d842.zip gcc-11c7f78838d7587f95e28e6cbf4695a02c37d842.tar.gz gcc-11c7f78838d7587f95e28e6cbf4695a02c37d842.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/warn_unused_function_2.f90 | 9 |
2 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 725273b..774981c 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 8d65dab..958cc96 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" } } |