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