12 lines
388 B
Fortran
12 lines
388 B
Fortran
|
! RUN: %python %S/test_symbols.py %s %flang_fc1
|
||
|
|
! Ensure that a misparsed function reference that turns out to be an
|
||
|
|
! array element reference still applies implicit typing, &c.
|
||
|
|
!DEF: /subr (Subroutine) Subprogram
|
||
|
|
subroutine subr
|
||
|
|
!DEF: /subr/moo (Implicit) ObjectEntity INTEGER(4)
|
||
|
|
common //moo(1)
|
||
|
|
!DEF: /subr/a ObjectEntity REAL(4)
|
||
|
|
!REF: /subr/moo
|
||
|
|
real a(moo(1))
|
||
|
|
end subroutine
|