2 ! { dg-options "-Wunused-function" }
4 ! PR 54224: [4.8 Regression] Bogus -Wunused-function warning with static function
6 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
9 private
:: hello_integer
11 subroutine say_hello()
12 call hello_integer(123)
15 subroutine hello_integer( a
)
16 integer, intent(in
) :: a
17 print *, "Hello ", a
, "!"