20 lines
548 B
Fortran
20 lines
548 B
Fortran
|
! RUN: %python %S/test_symbols.py %s %flang_fc1
|
||
|
|
!DEF: /m Module
|
||
|
|
module m
|
||
|
|
!DEF: /m/t PUBLIC DerivedType
|
||
|
|
type :: t
|
||
|
|
contains
|
||
|
|
!DEF: /m/forwardreferenced ELEMENTAL, IMPURE, MODULE, PUBLIC (Subroutine) Subprogram
|
||
|
|
final :: forwardreferenced
|
||
|
|
end type
|
||
|
|
interface
|
||
|
|
!REF: /m/forwardreferenced
|
||
|
|
!DEF: /m/forwardreferenced/this INTENT(INOUT) ObjectEntity TYPE(t)
|
||
|
|
impure elemental module subroutine forwardreferenced (this)
|
||
|
|
!REF: /m/t
|
||
|
|
!REF: /m/forwardreferenced/this
|
||
|
|
type(t), intent(inout) :: this
|
||
|
|
end subroutine
|
||
|
|
end interface
|
||
|
|
end module
|