1! RUN: %S/test_errors.sh %s %t %flang_fc1
2! REQUIRES: shell
3module m
4 contains
5  subroutine s1
6    !ERROR: DATA statement initializations affect 'jb(5_8)' more than once
7    integer :: ja(10), jb(10)
8    data (ja(k),k=1,9,2) / 5*1 / ! ok
9    data (ja(k),k=10,2,-2) / 5*2 / ! ok
10    data (jb(k),k=1,9,2) / 5*1 / ! ok
11    data (jb(k),k=2,10,3) / 3*2 / ! conflict at 5
12  end subroutine
13end module
14