2 ! PR fortran/101536 - ICE in gfc_conv_expr_descriptor
6 class(*), allocatable
:: c
9 class(*), allocatable
:: c(:)
18 print *, size (x
%c(1)) ! { dg-error "must be an array" }
20 integer function f(x
, y
, z
)
21 class(t
), allocatable
:: x(:)
25 f
= size (x(1)) ! { dg-error "must be an array" }
29 f
= size (y(2)%c(1)) ! { dg-error "must be an array" }
30 f
= size (z
) ! { dg-error "must be an array" }
31 f
= size (z
% c
) ! { dg-error "must be an array" }