1! { dg-do compile }
2! tests the patch for PR30870, in which the generic XX was rejected
3! because the specific with the same name was not looked for.
4!
5! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
6!
7MODULE TEST
8 INTERFACE xx
9   MODULE PROCEDURE xx
10 END INTERFACE
11 public :: xx
12CONTAINS
13 SUBROUTINE xx(i)
14  INTEGER :: I
15  I=7
16 END SUBROUTINE
17END
18MODULE TOO
19CONTAINS
20 SUBROUTINE SUB(xx,I)
21  INTERFACE
22    SUBROUTINE XX(I)
23        INTEGER :: I
24    END SUBROUTINE
25  END INTERFACE
26  CALL XX(I)
27 END SUBROUTINE
28END MODULE TOO
29PROGRAM TT
30 USE TEST
31 USE TOO
32 INTEGER :: I
33 CALL SUB(xx,I)
34 IF (I.NE.7) STOP 1
35END PROGRAM
36