1! RUN: %S/test_errors.sh %s %t %flang_fc1
2! REQUIRES: shell
3type :: t
4  integer :: n
5end type
6type(t) :: x
7real, target, save :: a(1)
8real, parameter :: arrparm(1) = [3.14159]
9real, pointer :: p
10real :: y
11data x/t(1)/
12data p/a(1)/
13!ERROR: DATA statement value initializes 'y' with an array
14data y/arrparm/
15end
16