2 ! { dg-options "-fcoarray=single" }
7 ! Was failing before as the "x%a()[]" was
8 ! regarded as coindexed
11 integer, allocatable
:: a(:)[:]
19 integer, allocatable
:: a(:)[:]
22 ! Was failing as "a" was allocatable but
23 ! as->cotype was not AS_DEFERERED.