1! { dg-do compile }
2!
3! PR39688: IMPORT of derived type fails
4!
5! Contributed by Bob Corbett <robert.corbett@sun.com>
6
7       MODULE MOD
8         TYPE T1
9           SEQUENCE
10           TYPE(T2), POINTER :: P
11         END TYPE
12         TYPE T2
13           SEQUENCE
14           INTEGER I
15         END TYPE
16       END
17
18       PROGRAM MAIN
19         USE MOD, T3 => T1, T4 => T2
20         TYPE T1
21           SEQUENCE
22           TYPE(T2), POINTER :: P
23         END TYPE
24         INTERFACE SUBR
25           SUBROUTINE SUBR1(X)
26             IMPORT T3
27             TYPE(T3) X
28           END SUBROUTINE
29           SUBROUTINE SUBR2(X)
30             IMPORT T1
31             TYPE(T1) X
32           END SUBROUTINE
33         END INTERFACE
34         TYPE T2
35           SEQUENCE
36           REAL X
37         END TYPE
38       END
39
40       SUBROUTINE SUBR1(X)
41         USE MOD
42         TYPE(T1) X
43       END
44
45       SUBROUTINE SUBR2(X)
46         TYPE T1
47           SEQUENCE
48           TYPE(T2), POINTER :: P
49         END TYPE
50         TYPE T2
51           SEQUENCE
52           REAL X
53         END TYPE
54         TYPE(T1) X
55       END
56