comparison gcc/testsuite/gfortran.dg/import7.f90 @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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