1 2 3 4 5 6
! { dg-do compile } ! { dg-options "-fcoarray=single" } ! Contributed by Arseny Solokha <asolokha at gmx dot de> module pc integer, dimension(1) :: zw[1:1,1:*] end module pc