43 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12! Regression test of name resolution bug3!DEF: /m Module4module m5 !DEF: /m/base ABSTRACT, PUBLIC DerivedType6 type, abstract :: base7 contains8 !DEF: /m/base/foo Generic9 !DEF: /m/base/spec DEFERRED ProcBinding10 generic :: foo => spec11 !DEF: /m/iface ABSTRACT, PUBLIC (Subroutine) Subprogram12 !REF: /m/base/spec13 procedure(iface), deferred :: spec14 end type15 abstract interface16 !REF: /m/iface17 !DEF: /m/iface/this ObjectEntity CLASS(base)18 subroutine iface (this)19 !REF: /m/base20 import :: base21 !REF: /m/base22 !REF: /m/iface/this23 class(base) :: this24 end subroutine25 end interface26 !REF: /m/base27 !DEF: /m/ext PUBLIC DerivedType28 type, extends(base) :: ext29 contains30 !DEF: /m/ext/spec ProcBinding31 !DEF: /m/foo PUBLIC (Subroutine) Subprogram32 procedure :: spec => foo33 end type34contains35 !REF: /m/foo36 !DEF: /m/foo/this ObjectEntity CLASS(ext)37 subroutine foo (this)38 !REF: /m/ext39 !REF: /m/foo/this40 class(ext) :: this41 end subroutine42end module43