1! { dg-do compile }
2! { dg-options "-fcoarray=single" }
3!
4! Test the fix for PR78152
5!
6! Contributed by <physiker@toast2.net>
7!
8program co_assoc
9  implicit none
10  integer, parameter :: p = 5
11  real, allocatable :: a(:,:)[:,:]
12  allocate (a(p,p)[2,*])
13    associate (i => a(1:p, 1:p))
14  end associate
15end program co_assoc
16