1! RUN: %S/test_symbols.sh %s %t %f18 2! Test host association in module subroutine and internal subroutine. 3 4!DEF: /m Module 5module m 6 !DEF: /m/t PUBLIC DerivedType 7 type :: t 8 end type 9 !REF: /m/t 10 !DEF: /m/x PUBLIC ObjectEntity TYPE(t) 11 type(t) :: x 12 interface 13 !DEF: /m/s3 MODULE, PUBLIC (Subroutine) Subprogram 14 !DEF: /m/s3/y ObjectEntity TYPE(t) 15 module subroutine s3(y) 16 !REF: /m/t 17 !REF: /m/s3/y 18 type(t) :: y 19 end subroutine 20 end interface 21contains 22 !DEF: /m/s PUBLIC (Subroutine) Subprogram 23 subroutine s 24 !REF: /m/t 25 !DEF: /m/s/y ObjectEntity TYPE(t) 26 type(t) :: y 27 !REF: /m/s/y 28 !REF: /m/x 29 y = x 30 !DEF: /m/s/s (Subroutine) HostAssoc 31 call s 32 contains 33 !DEF: /m/s/s2 (Subroutine) Subprogram 34 subroutine s2 35 !REF: /m/x 36 !REF: /m/s/y 37 !REF: /m/t 38 !REF: /m/s/s 39 import, only: x, y, t, s 40 !REF: /m/t 41 !DEF: /m/s/s2/z ObjectEntity TYPE(t) 42 type(t) :: z 43 !REF: /m/s/s2/z 44 !REF: /m/x 45 z = x 46 !REF: /m/s/s2/z 47 !DEF: /m/s/s2/y HostAssoc TYPE(t) 48 z = y 49 !REF: /m/s/s 50 call s 51 end subroutine 52 end subroutine 53end module 54