15 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12type :: t3 integer :: n4end type5type(t) :: x6real, target, save :: a(1)7real, parameter :: arrparm(1) = [3.14159]8real, pointer :: p9real :: y10data x/t(1)/11data p/a(1)/12!ERROR: DATA statement value initializes 'y' with an array13data y/arrparm/14end15