repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Daily bump.
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
import7.f90
blob
973851fdd7d4d6e40cefbcdf3b60c170a0e8db0d
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