xref: /llvm-project/flang/test/Semantics/data07.f90 (revision 6c1ac141d3c98af9738bc77fcb55602cbff7751f)
1! RUN: %python %S/test_errors.py %s %flang_fc1
2module m
3 contains
4  subroutine s1
5    !ERROR: DATA statement initializations affect 'jb(5_8)' more than once
6    integer :: ja(10), jb(10)
7    data (ja(k),k=1,9,2) / 5*1 / ! ok
8    data (ja(k),k=10,2,-2) / 5*2 / ! ok
9    data (jb(k),k=1,9,2) / 5*1 / ! ok
10    data (jb(k),k=2,10,3) / 3*2 / ! conflict at 5
11  end subroutine
12end module
13