flang/test/Semantics/symbol30.f90

   1 ! RUN: %python %S/test_symbols.py %s %flang_fc1
   2 !DEF: /m Module
   3 module m
   4  !DEF: /m/t PUBLIC DerivedType
   5  type :: t
   6  contains
   7   !DEF: /m/forwardreferenced ELEMENTAL, IMPURE, MODULE, PUBLIC (Subroutine) Subprogram
   8   final :: forwardreferenced
   9  end type
  10  interface
  11   !REF: /m/forwardreferenced
  12   !DEF: /m/forwardreferenced/this INTENT(INOUT) ObjectEntity TYPE(t)
  13   impure elemental module subroutine forwardreferenced (this)
  14    !REF: /m/t
  15    !REF: /m/forwardreferenced/this
  16    type(t), intent(inout) :: this
  17   end subroutine
  18  end interface
  19 end module