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