! { dg-do compile }
! { dg-options "-fcoarray=lib -O2" }
program p
   integer :: z(2)[*] = 1
   z(:)[1] = z(:)[*]       ! { dg-error "must be a scalar at" }
end