| ! 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 |