| ! RUN: %python %S/test_symbols.py %s %flang_fc1 |
| !DEF: /m1 Module |
| module m1 |
| !DEF: /m1/s PUBLIC (Subroutine) Generic |
| interface s |
| !DEF: /m1/s MODULE (Subroutine) Subprogram |
| module subroutine s |
| end subroutine |
| !DEF: /m1/s2 MODULE, PUBLIC (Subroutine) Subprogram |
| !DEF: /m1/s2/j INTENT(IN) ObjectEntity INTEGER(4) |
| module subroutine s2 (j) |
| !REF: /m1/s2/j |
| integer, intent(in) :: j |
| end subroutine |
| end interface |
| contains |
| !DEF: /m1/s MODULE (Subroutine) Subprogram |
| module subroutine s |
| end subroutine |
| !REF: /m1/s2 |
| module procedure s2 |
| end procedure |
| !DEF: /m1/test PUBLIC (Subroutine) Subprogram |
| subroutine test |
| !REF: /m1/s |
| call s |
| !REF: /m1/s2 |
| call s(1) |
| end subroutine |
| end module |
| !DEF: /m2 Module |
| module m2 |
| !DEF: /m2/s PUBLIC (Subroutine) Generic |
| interface s |
| !DEF: /m2/s MODULE (Subroutine) Subprogram |
| module subroutine s |
| end subroutine |
| !DEF: /m2/s2 MODULE, PUBLIC (Subroutine) Subprogram |
| !DEF: /m2/s2/j INTENT(IN) ObjectEntity INTEGER(4) |
| module subroutine s2 (j) |
| !REF: /m2/s2/j |
| integer, intent(in) :: j |
| end subroutine |
| end interface |
| contains |
| !REF:/m2/s |
| module procedure s |
| end procedure |
| !DEF: /m2/s2 MODULE, PUBLIC (Subroutine) Subprogram |
| !DEF: /m2/s2/j INTENT(IN) ObjectEntity INTEGER(4) |
| module subroutine s2 (j) |
| !REF: /m2/s2/j |
| integer, intent(in) :: j |
| end subroutine |
| !DEF: /m2/test PUBLIC (Subroutine) Subprogram |
| subroutine test |
| !REF: /m2/s |
| call s |
| !REF: /m2/s2 |
| call s(1) |
| end subroutine |
| end module |