projects
/
platform
/
upstream
/
gcc48.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Imported Upstream version 4.8.1
[platform/upstream/gcc48.git]
/
gcc
/
testsuite
/
gfortran.dg
/
import7.f90
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