blob: 29f860adf4a00128bcfd313b55d7759b9a050dfb [file] [log] [blame]
! { dg-do compile }
! tests the patch for PR30870, in which the generic XX was rejected
! because the specific with the same name was not looked for.
!
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
!
MODULE TEST
INTERFACE xx
MODULE PROCEDURE xx
END INTERFACE
public :: xx
CONTAINS
SUBROUTINE xx(i)
INTEGER :: I
I=7
END SUBROUTINE
END
MODULE TOO
CONTAINS
SUBROUTINE SUB(xx,I)
INTERFACE
SUBROUTINE XX(I)
INTEGER :: I
END SUBROUTINE
END INTERFACE
CALL XX(I)
END SUBROUTINE
END MODULE TOO
PROGRAM TT
USE TEST
USE TOO
INTEGER :: I
CALL SUB(xx,I)
IF (I.NE.7) STOP 1
END PROGRAM