18 lines
527 B
Fortran
18 lines
527 B
Fortran
|
! RUN: %python %S/test_errors.py %s %flang_fc1
|
||
|
|
program main
|
||
|
|
contains
|
||
|
|
subroutine subr
|
||
|
|
data foo/6.66/ ! implicit declaration of "foo": ok
|
||
|
|
integer m
|
||
|
|
!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/
|
||
|
|
block
|
||
|
|
real b(m)
|
||
|
|
!ERROR: Host-associated object 'm' must not be initialized in a DATA statement
|
||
|
|
data m/10/
|
||
|
|
end block
|
||
|
|
end subroutine
|
||
|
|
end program
|