48 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12!DEF: /m1a Module3module m1a4 !DEF: /m1a/foo PUBLIC DerivedType5 type :: foo6 !DEF: /m1a/foo/j ObjectEntity INTEGER(4)7 integer :: j8 end type9end module10!DEF: /m1b Module11module m1b12 !DEF: /m1b/foo PUBLIC (Function) Generic13 interface foo14 !DEF: /m1b/bar PUBLIC (Function) Subprogram REAL(4)15 module procedure :: bar16 end interface17contains18 !REF: /m1b/bar19 function bar()20 end function21end module22!DEF: /test1a (Subroutine) Subprogram23subroutine test1a24 !REF: /m1a25 use :: m1a26 !REF: /m1b27 use :: m1b28 !DEF: /test1a/foo (Function) Generic29 !DEF: /test1a/x ObjectEntity TYPE(foo)30 type(foo) :: x31 !REF: /m1a/foo32 !REF: /m1b/bar33 print *, foo(1), foo()34end subroutine35!DEF: /test1b (Subroutine) Subprogram36subroutine test1b37 !REF: /m1b38 use :: m1b39 !REF: /m1a40 use :: m1a41 !DEF: /test1b/foo (Function) Generic42 !DEF: /test1b/x ObjectEntity TYPE(foo)43 type(foo) :: x44 !REF: /m1a/foo45 !REF: /m1b/bar46 print *, foo(1), foo()47end subroutine48