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