[flang] Accept polymorphic component element in storage_size

[llvm-project.git] / flang / test / Semantics / data10.f90

! RUN: %python %S/test_errors.py %s %flang_fc1
type :: t
  integer :: n
end type
type(t) :: x
real, target, save :: a(1)
real, parameter :: arrparm(1) = [3.14159]
real, pointer :: p
real :: y
data x/t(1)/
data p/a(1)/
!ERROR: DATA statement value initializes 'y' with an array
data y/arrparm/
end