flang/test/Semantics/data10.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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