2 ! { dg-options "-fcoarray=lib" }
4 ! Test the fix for PR78152 and the followup in PR82868
6 ! Contributed by <physiker@toast2.net>
10 integer, parameter :: p
= 5
11 real, allocatable
:: a(:,:)[:,:]
12 allocate (a(p
,p
)[2,*])
13 associate (i
=> a(1:p
, 1:p
))