1! { dg-do compile } 2! Test the fix for PR30476 in which the generic interface hello 3! was found incorrectly to be ambiguous. 4! 5!Contributed by Tobias Burnus <burnus@gcc.gnu.org> 6! 7SUBROUTINE hello_x(dum) 8 IMPLICIT NONE 9 INTEGER :: dum 10 WRITE(0,*) "Hello world: ", dum 11END SUBROUTINE hello_x 12 13MODULE interfaces 14IMPLICIT NONE 15INTERFACE hello 16 SUBROUTINE hello_x(dum) 17 IMPLICIT NONE 18 INTEGER :: dum 19 END SUBROUTINE hello_x 20END INTERFACE 21END MODULE interfaces 22 23MODULE global_module 24 USE interfaces 25END MODULE global_module 26 27PROGRAM main 28 USE global_module 29 IMPLICIT NONE 30 CALL hello(10) 31END PROGRAM main 32