5 ! "If the selector is allocatable, it shall be allocated; the
6 ! associate name is associated with the data object and does
7 ! not have the ALLOCATABLE attribute."
14 class(t
), allocatable
:: a
15 class(t
), allocatable
:: b
19 call move_alloc (b
, a
) ! { dg-error "must be ALLOCATABLE" }
24 class(t
), allocatable
:: a
25 type(t
), allocatable
:: b
28 call move_alloc (b
, c
) ! { dg-error "must be ALLOCATABLE" }
35 class(t
), allocatable
:: x
39 print *, allocated (x
) ! { dg-error "must be ALLOCATABLE" }
44 print *, allocated (y
) ! { dg-error "must be ALLOCATABLE" }
48 print *, allocated (y
) ! { dg-error "must be ALLOCATABLE" }