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