3382edf9b9
DATA statements in inner procedures were not treating undeclared objects as implicitly declared variables if the DATA statement appeared in a specification part; they were treated as host-associated symbols instead. This was incorrect. Fix DATA statement name resolution to always treat DATA as if it had appeared in the executable part. Differential Revision: https://reviews.llvm.org/D125129
16 lines
575 B
Fortran
16 lines
575 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Ensure that implicit declarations work in DATA statements
|
|
! appearing in specification parts of inner procedures; they
|
|
! should not elicit diagnostics about initialization of host
|
|
! associated objects.
|
|
program main
|
|
contains
|
|
subroutine subr
|
|
data foo/6.66/ ! implicit declaration of "foo": ok
|
|
!ERROR: Implicitly typed local entity 'n' not allowed in specification expression
|
|
real a(n)
|
|
!ERROR: Host-associated object 'n' must not be initialized in a DATA statement
|
|
data n/123/
|
|
end subroutine
|
|
end program
|