annotate gcc/testsuite/gfortran.dg/import7.f90 @ 132:d34655255c78

update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 !
kono
parents:
diff changeset
3 ! PR39688: IMPORT of derived type fails
kono
parents:
diff changeset
4 !
kono
parents:
diff changeset
5 ! Contributed by Bob Corbett <robert.corbett@sun.com>
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 MODULE MOD
kono
parents:
diff changeset
8 TYPE T1
kono
parents:
diff changeset
9 SEQUENCE
kono
parents:
diff changeset
10 TYPE(T2), POINTER :: P
kono
parents:
diff changeset
11 END TYPE
kono
parents:
diff changeset
12 TYPE T2
kono
parents:
diff changeset
13 SEQUENCE
kono
parents:
diff changeset
14 INTEGER I
kono
parents:
diff changeset
15 END TYPE
kono
parents:
diff changeset
16 END
kono
parents:
diff changeset
17
kono
parents:
diff changeset
18 PROGRAM MAIN
kono
parents:
diff changeset
19 USE MOD, T3 => T1, T4 => T2
kono
parents:
diff changeset
20 TYPE T1
kono
parents:
diff changeset
21 SEQUENCE
kono
parents:
diff changeset
22 TYPE(T2), POINTER :: P
kono
parents:
diff changeset
23 END TYPE
kono
parents:
diff changeset
24 INTERFACE SUBR
kono
parents:
diff changeset
25 SUBROUTINE SUBR1(X)
kono
parents:
diff changeset
26 IMPORT T3
kono
parents:
diff changeset
27 TYPE(T3) X
kono
parents:
diff changeset
28 END SUBROUTINE
kono
parents:
diff changeset
29 SUBROUTINE SUBR2(X)
kono
parents:
diff changeset
30 IMPORT T1
kono
parents:
diff changeset
31 TYPE(T1) X
kono
parents:
diff changeset
32 END SUBROUTINE
kono
parents:
diff changeset
33 END INTERFACE
kono
parents:
diff changeset
34 TYPE T2
kono
parents:
diff changeset
35 SEQUENCE
kono
parents:
diff changeset
36 REAL X
kono
parents:
diff changeset
37 END TYPE
kono
parents:
diff changeset
38 END
kono
parents:
diff changeset
39
kono
parents:
diff changeset
40 SUBROUTINE SUBR1(X)
kono
parents:
diff changeset
41 USE MOD
kono
parents:
diff changeset
42 TYPE(T1) X
kono
parents:
diff changeset
43 END
kono
parents:
diff changeset
44
kono
parents:
diff changeset
45 SUBROUTINE SUBR2(X)
kono
parents:
diff changeset
46 TYPE T1
kono
parents:
diff changeset
47 SEQUENCE
kono
parents:
diff changeset
48 TYPE(T2), POINTER :: P
kono
parents:
diff changeset
49 END TYPE
kono
parents:
diff changeset
50 TYPE T2
kono
parents:
diff changeset
51 SEQUENCE
kono
parents:
diff changeset
52 REAL X
kono
parents:
diff changeset
53 END TYPE
kono
parents:
diff changeset
54 TYPE(T1) X
kono
parents:
diff changeset
55 END