1! RUN: %python %S/test_errors.py %s %flang_fc1
2! Ensure that implicit declarations work in DATA statements
3! appearing in specification parts of inner procedures; they
4! should not elicit diagnostics about initialization of host
5! associated objects.
6program main
7 contains
8  subroutine subr
9    data foo/6.66/ ! implicit declaration of "foo": ok
10    !ERROR: Implicitly typed local entity 'n' not allowed in specification expression
11    real a(n)
12    !ERROR: Host-associated object 'n' must not be initialized in a DATA statement
13    data n/123/
14  end subroutine
15end program
16