! { dg-do compile } | |
program p | |
type t | |
integer, allocatable :: a(:) | |
end type | |
type u | |
real x | |
type(t) y | |
end type | |
type(t) :: z | |
type(u) :: q | |
data z%a(1) / 789 / ! { dg-error "Allocatable component" } | |
data q%y%a(1) / 789 / ! { dg-error "Allocatable component" } | |
end |