a20d48d7d3
Implement rest of DATA statement semantics and conversion of DATA statement initializations into static initializers of objects in their symbol table entries. Reviewed By: tskeith, PeteSteinfeld Differential Revision: https://reviews.llvm.org/D82207
13 lines
370 B
Fortran
13 lines
370 B
Fortran
! RUN: %S/test_errors.sh %s %t %f18
|
|
module m
|
|
contains
|
|
subroutine s1
|
|
!ERROR: DATA statement initializations affect 'jb(5_8)' more than once
|
|
integer :: ja(10), jb(10)
|
|
data (ja(k),k=1,9,2) / 5*1 / ! ok
|
|
data (ja(k),k=10,2,-2) / 5*2 / ! ok
|
|
data (jb(k),k=1,9,2) / 5*1 / ! ok
|
|
data (jb(k),k=2,10,3) / 3*2 / ! conflict at 5
|
|
end subroutine
|
|
end module
|