flang/test/Semantics/symbol33.f90

   1 ! RUN: %python %S/test_symbols.py %s %flang_fc1
   2 ! Ensure that a misparsed function reference that turns out to be an
   3 ! array element reference still applies implicit typing, &c.
   4 !DEF: /subr (Subroutine) Subprogram
   5 subroutine subr
   6   !DEF: /subr/moo (Implicit) ObjectEntity INTEGER(4)
   7   common //moo(1)
   8   !DEF: /subr/a ObjectEntity REAL(4)
   9   !REF: /subr/moo
  10   real a(moo(1))
  11 end subroutine