! RUN: %S/test_errors.sh %s %t %f18 | |
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 |