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

 ! { dg-do compile }
 !
 ! PR93835 resulted in different but valid error message
 program p
    integer :: z(4) = [1, 2, 3, 4]
    print *, any(shape(z) /= [4,1])  ! { dg-error "Shapes for operands at .1. and .2. are not conformable" }
 end
	! { dg-do compile }
	!
	! PR93835 resulted in different but valid error message
	program p
	integer :: z(4) = [1, 2, 3, 4]
	print *, any(shape(z) /= [4,1]) ! { dg-error "Shapes for operands at .1. and .2. are not conformable" }
	end