diff options
| author | Dominique d'Humieres <dominiq@lps.ens.fr> | 2015-11-03 19:03:38 +0100 |
|---|---|---|
| committer | Dominique d'Humieres <dominiq@gcc.gnu.org> | 2015-11-03 19:03:38 +0100 |
| commit | aa3d33850faf4de0a1a2b142cefa35326a0d5c0b (patch) | |
| tree | 453830ae280054aad8d1baf6f1cfda8f06c2a0bc /gcc | |
| parent | 26eaa5a5ebc6b22c7b9abd2ec78fc1428077df7c (diff) | |
| download | gcc-aa3d33850faf4de0a1a2b142cefa35326a0d5c0b.zip gcc-aa3d33850faf4de0a1a2b142cefa35326a0d5c0b.tar.gz gcc-aa3d33850faf4de0a1a2b142cefa35326a0d5c0b.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/warn_unused_function_3.f90 | 35 |
2 files changed, 40 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 14253d1..829e0a8 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 0000000..63d64ff --- /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 |