37 lines
673 B
Fortran
37 lines
673 B
Fortran
! { 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) CALL ABORT()
|
|
END PROGRAM
|
|
! { dg-final { cleanup-modules "test too" } }
|