xref: /llvm-project/flang/test/Semantics/data10.f90 (revision 6c1ac141d3c98af9738bc77fcb55602cbff7751f)
1*6c1ac141SIvan Zhechev! RUN: %python %S/test_errors.py %s %flang_fc1
29a883bfaSpeter klauslertype :: t
39a883bfaSpeter klausler  integer :: n
49a883bfaSpeter klauslerend type
59a883bfaSpeter klauslertype(t) :: x
69a883bfaSpeter klauslerreal, target, save :: a(1)
79a883bfaSpeter klauslerreal, parameter :: arrparm(1) = [3.14159]
89a883bfaSpeter klauslerreal, pointer :: p
99a883bfaSpeter klauslerreal :: y
109a883bfaSpeter klauslerdata x/t(1)/
119a883bfaSpeter klauslerdata p/a(1)/
129a883bfaSpeter klausler!ERROR: DATA statement value initializes 'y' with an array
139a883bfaSpeter klauslerdata y/arrparm/
149a883bfaSpeter klauslerend
15