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