1! { dg-do compile } 2program p 3 type t 4 end type 5 class(t) :: x ! { dg-error "must be dummy, allocatable or pointer" } 6 associate (y => x) 7 end associate 8end 9