138 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12!DEF: /s1 (Subroutine) Subprogram3subroutine s14 implicit none5 !DEF: /s1/x ObjectEntity REAL(8)6 real(kind=8) :: x = 2.07 !DEF: /s1/a ObjectEntity INTEGER(4)8 integer a9 !DEF: /s1/t DerivedType10 type :: t11 end type12 !REF: /s1/t13 !DEF: /s1/z ALLOCATABLE ObjectEntity CLASS(t)14 class(t), allocatable :: z15 !DEF: /s1/OtherConstruct1/a AssocEntity REAL(8)16 !REF: /s1/x17 !DEF: /s1/OtherConstruct1/b AssocEntity REAL(8)18 !DEF: /s1/OtherConstruct1/c AssocEntity CLASS(t)19 !REF: /s1/z20 associate (a => x, b => x+1, c => z)21 !REF: /s1/x22 !REF: /s1/OtherConstruct1/a23 x = a24 end associate25end subroutine26 27!DEF: /s2 (Subroutine) Subprogram28subroutine s229 !DEF: /s2/x ObjectEntity CHARACTER(4_4,1)30 !DEF: /s2/y ObjectEntity CHARACTER(4_4,1)31 character(len=4) x, y32 !DEF: /s2/OtherConstruct1/z AssocEntity CHARACTER(4_8,1)33 !REF: /s2/x34 associate (z => x)35 !REF: /s2/OtherConstruct1/z36 print *, "z:", z37 end associate38 !TODO: need correct length for z39 !DEF: /s2/OtherConstruct2/z AssocEntity CHARACTER(8_8,1)40 !REF: /s2/x41 !REF: /s2/y42 associate (z => x//y)43 !REF: /s2/OtherConstruct2/z44 print *, "z:", z45 end associate46end subroutine47 48!DEF: /s3 (Subroutine) Subprogram49subroutine s350 !DEF: /s3/t1 DerivedType51 type :: t152 !DEF: /s3/t1/a1 ObjectEntity INTEGER(4)53 integer :: a154 end type55 !REF: /s3/t156 !DEF: /s3/t2 DerivedType57 type, extends(t1) :: t258 !DEF: /s3/t2/a2 ObjectEntity INTEGER(4)59 integer :: a260 end type61 !DEF: /s3/i ObjectEntity INTEGER(4)62 integer i63 !REF: /s3/t164 !DEF: /s3/x POINTER ObjectEntity CLASS(t1)65 class(t1), pointer :: x66 !REF: /s3/x67 select type (y => x)68 !REF: /s3/t269 class is (t2)70 !REF: /s3/i71 !DEF: /s3/OtherConstruct1/y TARGET AssocEntity CLASS(t2)72 !REF: /s3/t2/a273 i = y%a274 !REF: /s3/t175 type is (t1)76 !REF: /s3/i77 !DEF: /s3/OtherConstruct2/y TARGET AssocEntity TYPE(t1)78 !REF: /s3/t1/a179 i = y%a180 class default81 !DEF: /s3/OtherConstruct3/y TARGET AssocEntity CLASS(t1)82 !REF:/s3/t1/a183 print *, y%a184 end select85end subroutine86 87!DEF: /s4 (Subroutine) Subprogram88subroutine s489 !DEF: /s4/t1 DerivedType90 type :: t191 !DEF: /s4/t1/a ObjectEntity REAL(4)92 real :: a93 end type94 !DEF: /s4/t2 DerivedType95 type :: t296 !REF: /s4/t197 !DEF: /s4/t2/b ObjectEntity TYPE(t1)98 type(t1) :: b99 end type100 !REF: /s4/t2101 !DEF: /s4/x ObjectEntity TYPE(t2)102 type(t2) :: x103 !DEF: /s4/OtherConstruct1/y AssocEntity TYPE(t1)104 !REF: /s4/x105 !REF: /s4/t2/b106 associate(y => x%b)107 !REF: /s4/OtherConstruct1/y108 !REF: /s4/t1/a109 y%a = 0.0110 end associate111end subroutine112 113!DEF: /s5 (Subroutine) Subprogram114subroutine s5115 !DEF: /s5/t DerivedType116 type :: t117 !DEF: /s5/t/a ObjectEntity REAL(4)118 real :: a119 end type120 !DEF: /s5/b ObjectEntity REAL(4)121 real b122 !DEF: /s5/OtherConstruct1/x AssocEntity TYPE(t)123 !DEF: /s5/f (Function) Subprogram TYPE(t)124 associate(x => f())125 !REF: /s5/b126 !REF: /s5/OtherConstruct1/x127 !REF: /s5/t/a128 b = x%a129 end associate130contains131 !REF: /s5/f132 function f()133 !REF: /s5/t134 !DEF: /s5/f/f ObjectEntity TYPE(t)135 type(t) :: f136 end function137end subroutine138