gcc/testsuite/gfortran.dg/pr77380.f90 - gcc - Git at Google

 ! { 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
	! { 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