63 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12!DEF: /m1 Module3module m14 !DEF: /m1/s PUBLIC (Subroutine) Generic5 interface s6 !DEF: /m1/s MODULE (Subroutine) Subprogram7 module subroutine s8 end subroutine9 !DEF: /m1/s2 MODULE, PUBLIC (Subroutine) Subprogram10 !DEF: /m1/s2/j INTENT(IN) ObjectEntity INTEGER(4)11 module subroutine s2 (j)12 !REF: /m1/s2/j13 integer, intent(in) :: j14 end subroutine15 end interface16contains17 !DEF: /m1/s MODULE (Subroutine) Subprogram18 module subroutine s19 end subroutine20 !REF: /m1/s221 module procedure s222 end procedure23 !DEF: /m1/test PUBLIC (Subroutine) Subprogram24 subroutine test25 !REF: /m1/s26 call s27 !REF: /m1/s228 call s(1)29 end subroutine30end module31!DEF: /m2 Module32module m233 !DEF: /m2/s PUBLIC (Subroutine) Generic34 interface s35 !DEF: /m2/s MODULE (Subroutine) Subprogram36 module subroutine s37 end subroutine38 !DEF: /m2/s2 MODULE, PUBLIC (Subroutine) Subprogram39 !DEF: /m2/s2/j INTENT(IN) ObjectEntity INTEGER(4)40 module subroutine s2 (j)41 !REF: /m2/s2/j42 integer, intent(in) :: j43 end subroutine44 end interface45contains46 !REF:/m2/s47 module procedure s48 end procedure49 !DEF: /m2/s2 MODULE, PUBLIC (Subroutine) Subprogram50 !DEF: /m2/s2/j INTENT(IN) ObjectEntity INTEGER(4)51 module subroutine s2 (j)52 !REF: /m2/s2/j53 integer, intent(in) :: j54 end subroutine55 !DEF: /m2/test PUBLIC (Subroutine) Subprogram56 subroutine test57 !REF: /m2/s58 call s59 !REF: /m2/s260 call s(1)61 end subroutine62end module63