54 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12! Test host association in module subroutine and internal subroutine.3 4!DEF: /m Module5module m6 !DEF: /m/t PUBLIC DerivedType7 type :: t8 end type9 !REF: /m/t10 !DEF: /m/x PUBLIC ObjectEntity TYPE(t)11 type(t) :: x12 interface13 !DEF: /m/s3 MODULE, PUBLIC (Subroutine) Subprogram14 !DEF: /m/s3/y ObjectEntity TYPE(t)15 module subroutine s3(y)16 !REF: /m/t17 !REF: /m/s3/y18 type(t) :: y19 end subroutine20 end interface21contains22 !DEF: /m/s PUBLIC (Subroutine) Subprogram23 subroutine s24 !REF: /m/t25 !DEF: /m/s/y ObjectEntity TYPE(t)26 type(t) :: y27 !REF: /m/s/y28 !REF: /m/x29 y = x30 !DEF: /m/s/s (Subroutine) HostAssoc31 call s32 contains33 !DEF: /m/s/s2 (Subroutine) Subprogram34 subroutine s235 !REF: /m/x36 !REF: /m/s/y37 !REF: /m/t38 !REF: /m/s/s39 import, only: x, y, t, s40 !REF: /m/t41 !DEF: /m/s/s2/z ObjectEntity TYPE(t)42 type(t) :: z43 !REF: /m/s/s2/z44 !REF: /m/x45 z = x46 !REF: /m/s/s2/z47 !DEF: /m/s/s2/y HostAssoc TYPE(t)48 z = y49 !REF: /m/s/s50 call s51 end subroutine52 end subroutine53end module54