12 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12! Ensure that a misparsed function reference that turns out to be an3! array element reference still applies implicit typing, &c.4!DEF: /subr (Subroutine) Subprogram5subroutine subr6 !DEF: /subr/moo (Implicit, InCommonBlock) ObjectEntity INTEGER(4)7 common //moo(1)8 !DEF: /subr/a ObjectEntity REAL(4)9 !REF: /subr/moo10 real a(moo(1))11end subroutine12