13382edf9SPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1 23382edf9SPeter Klauslerprogram main 33382edf9SPeter Klausler contains 43382edf9SPeter Klausler subroutine subr 53382edf9SPeter Klausler data foo/6.66/ ! implicit declaration of "foo": ok 6*a9782feaSPeter Klausler integer m 73382edf9SPeter Klausler !ERROR: Implicitly typed local entity 'n' not allowed in specification expression 83382edf9SPeter Klausler real a(n) 93382edf9SPeter Klausler !ERROR: Host-associated object 'n' must not be initialized in a DATA statement 103382edf9SPeter Klausler data n/123/ 11*a9782feaSPeter Klausler block 12*a9782feaSPeter Klausler real b(m) 13*a9782feaSPeter Klausler !ERROR: Host-associated object 'm' must not be initialized in a DATA statement 14*a9782feaSPeter Klausler data m/10/ 15*a9782feaSPeter Klausler end block 163382edf9SPeter Klausler end subroutine 173382edf9SPeter Klauslerend program 18