forked from OSchip/llvm-project
15 lines
286 B
Fortran
15 lines
286 B
Fortran
! 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
|