1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
! REQUIRES: flang-supports-f128-math
! RUN: %python %S/test_symbols.py %s %flang_fc1
!DEF: /MainProgram1/ipdt DerivedType
!DEF: /MainProgram1/ipdt/k TypeParam INTEGER(4)
type :: ipdt(k)
!REF: /MainProgram1/ipdt/k
integer, kind :: k
!REF: /MainProgram1/ipdt/k
!DEF: /MainProgram1/ipdt/x ObjectEntity INTEGER(int(int(k,kind=4),kind=8))
integer(kind=k) :: x
end type ipdt
!DEF: /MainProgram1/rpdt DerivedType
!DEF: /MainProgram1/rpdt/k TypeParam INTEGER(4)
type :: rpdt(k)
!REF: /MainProgram1/rpdt/k
integer, kind :: k
!REF: /MainProgram1/rpdt/k
!DEF: /MainProgram1/rpdt/x ObjectEntity REAL(int(int(k,kind=4),kind=8))
real(kind=k) :: x
end type rpdt
!DEF: /MainProgram1/zpdt DerivedType
!DEF: /MainProgram1/zpdt/k TypeParam INTEGER(4)
type :: zpdt(k)
!REF: /MainProgram1/zpdt/k
integer, kind :: k
!REF: /MainProgram1/zpdt/k
!DEF: /MainProgram1/zpdt/x ObjectEntity COMPLEX(int(int(k,kind=4),kind=8))
complex(kind=k) :: x
end type zpdt
!DEF: /MainProgram1/lpdt DerivedType
!DEF: /MainProgram1/lpdt/k TypeParam INTEGER(4)
type :: lpdt(k)
!REF: /MainProgram1/lpdt/k
integer, kind :: k
!REF: /MainProgram1/lpdt/k
!DEF: /MainProgram1/lpdt/x ObjectEntity LOGICAL(int(int(k,kind=4),kind=8))
logical(kind=k) :: x
end type lpdt
!REF: /MainProgram1/ipdt
!DEF: /MainProgram1/i1 ObjectEntity TYPE(ipdt(k=1_4))
type(ipdt(1)) :: i1
!REF: /MainProgram1/ipdt
!DEF: /MainProgram1/i2 ObjectEntity TYPE(ipdt(k=2_4))
type(ipdt(2)) :: i2
!REF: /MainProgram1/ipdt
!DEF: /MainProgram1/i4 ObjectEntity TYPE(ipdt(k=4_4))
type(ipdt(4)) :: i4
!REF: /MainProgram1/ipdt
!DEF: /MainProgram1/i8 ObjectEntity TYPE(ipdt(k=8_4))
type(ipdt(8)) :: i8
!REF: /MainProgram1/ipdt
!DEF: /MainProgram1/i16 ObjectEntity TYPE(ipdt(k=16_4))
type(ipdt(16)) :: i16
!REF: /MainProgram1/rpdt
!DEF: /MainProgram1/a2 ObjectEntity TYPE(rpdt(k=2_4))
type(rpdt(2)) :: a2
!REF: /MainProgram1/rpdt
!DEF: /MainProgram1/a4 ObjectEntity TYPE(rpdt(k=4_4))
type(rpdt(4)) :: a4
!REF: /MainProgram1/rpdt
!DEF: /MainProgram1/a8 ObjectEntity TYPE(rpdt(k=8_4))
type(rpdt(8)) :: a8
!REF: /MainProgram1/rpdt
!DEF: /MainProgram1/a16 ObjectEntity TYPE(rpdt(k=16_4))
type(rpdt(16)) :: a16
!REF: /MainProgram1/zpdt
!DEF: /MainProgram1/z2 ObjectEntity TYPE(zpdt(k=2_4))
type(zpdt(2)) :: z2
!REF: /MainProgram1/zpdt
!DEF: /MainProgram1/z4 ObjectEntity TYPE(zpdt(k=4_4))
type(zpdt(4)) :: z4
!REF: /MainProgram1/zpdt
!DEF: /MainProgram1/z8 ObjectEntity TYPE(zpdt(k=8_4))
type(zpdt(8)) :: z8
!REF: /MainProgram1/zpdt
!DEF: /MainProgram1/z16 ObjectEntity TYPE(zpdt(k=16_4))
type(zpdt(16)) :: z16
!REF: /MainProgram1/lpdt
!DEF: /MainProgram1/l1 ObjectEntity TYPE(lpdt(k=1_4))
type(lpdt(1)) :: l1
!REF: /MainProgram1/lpdt
!DEF: /MainProgram1/l2 ObjectEntity TYPE(lpdt(k=2_4))
type(lpdt(2)) :: l2
!REF: /MainProgram1/lpdt
!DEF: /MainProgram1/l4 ObjectEntity TYPE(lpdt(k=4_4))
type(lpdt(4)) :: l4
!REF: /MainProgram1/lpdt
!DEF: /MainProgram1/l8 ObjectEntity TYPE(lpdt(k=8_4))
type(lpdt(8)) :: l8
end program
|
