blob: 56613451115f6cc99cabf5cf54219389c8403c06 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
! { 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" } }
|
