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
8module mod_say_hello
9    private :: hello_integer
10contains
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
19end module
20
21! { dg-final { cleanup-modules "mod_say_hello" } }
22