summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/generic_13.f90
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" } }