| ! { dg-do compile } | |
| ! { dg-options "-Wunused-function" } | |
| ! | |
| ! PR 54224: [4.8 Regression] Bogus -Wunused-function warning with static function | |
| ! | |
| ! Contributed by Tobias Burnus <burnus@gcc.gnu.org> | |
| module mod_say_hello | |
| private :: hello_integer | |
| contains | |
| subroutine say_hello() | |
| call hello_integer(123) | |
| end subroutine | |
| subroutine hello_integer( a ) | |
| integer, intent(in) :: a | |
| print *, "Hello ", a, "!" | |
| end subroutine | |
| end module |