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