41 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12!DEF: /m1 Module3module m14contains5 !DEF: /m1/foo_complex PUBLIC (Subroutine) Subprogram6 !DEF: /m1/foo_complex/z ObjectEntity COMPLEX(4)7 subroutine foo_complex (z)8 !REF: /m1/foo_complex/z9 complex z10 end subroutine11end module12!DEF: /m2 Module13module m214 !REF: /m115 use :: m116 !DEF: /m2/foo PUBLIC (Subroutine) Generic17 interface foo18 !DEF: /m2/foo_int PUBLIC (Subroutine) Subprogram19 module procedure :: foo_int20 !DEF: /m2/foo_real EXTERNAL, PUBLIC (Subroutine) Subprogram21 procedure :: foo_real22 !DEF: /m2/foo_complex PUBLIC (Subroutine) Use23 procedure :: foo_complex24 end interface25 interface26 !REF: /m2/foo_real27 !DEF: /m2/foo_real/r ObjectEntity REAL(4)28 subroutine foo_real (r)29 !REF: /m2/foo_real/r30 real r31 end subroutine32 end interface33contains34 !REF: /m2/foo_int35 !DEF: /m2/foo_int/i ObjectEntity INTEGER(4)36 subroutine foo_int (i)37 !REF: /m2/foo_int/i38 integer i39 end subroutine40end module41