gcc/testsuite/gfortran.dg/warn_unused_function.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Wunused-function" }
   3 !
   4 ! PR 54224: [4.8 Regression] Bogus -Wunused-function warning with static function
   5 !
   6 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   7
   8 module mod_say_hello
   9     private :: hello_integer
  10 contains
  11     subroutine say_hello()
  12         call hello_integer(123)
  13     end subroutine
  14
  15     subroutine hello_integer( a )
  16         integer, intent(in) ::  a
  17         print *, "Hello ", a, "!"
  18     end subroutine
  19 end module
  20
  21 ! { dg-final { cleanup-modules "mod_say_hello" } }