2 ! { dg-options "-fcoarray=single" }
4 ! Valid code - but currently not implemented for -fcoarray=lib; single okay
9 integer, allocatable
:: a
13 type(t
), allocatable
:: caf2
[:]
15 type(t
), save :: caf
[*],x
33 type(t
), allocatable
:: caf2
[:]
35 type(t
), save :: caf
[*],x
52 type(t
), allocatable
:: caf2(:)[:]
54 type(t
), save :: caf(10)[*]
68 integer, allocatable
:: a
72 class(t
), allocatable
:: caf2
[:]
74 class(t
), allocatable
:: caf
[:]
93 class(t
), allocatable
:: caf2
[:]
95 class(t
), save, allocatable
:: caf
[:]
113 class(t
), allocatable
:: caf2(:)[:]
115 class(t
), save, allocatable
:: caf(:)[:]
122 x(1) = y
%caf2(2)[4]%b
123 x(:) = y
%caf2(:)[4]%b