flang/test/Semantics/symbol02.f90

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