|
111
|
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
|
