2 ! Test the fix for PR30476 in which the generic interface hello
3 ! was found incorrectly to be ambiguous.
5 !Contributed by Tobias Burnus <burnus@gcc.gnu.org>
7 SUBROUTINE hello_x(dum)
10 WRITE(0,*) "Hello world: ", dum
11 END SUBROUTINE hello_x
16 SUBROUTINE hello_x(dum)
19 END SUBROUTINE hello_x
25 END MODULE global_module
32 ! { dg-final { cleanup-modules "interfaces global_module" } }