org.eclipse.photran.core.vpg.tests/control-flow-test-code/test-where-stmt/test-where-stmt.f90

program testwherestmt

	integer, dimension(10) :: array

	do i=1,10
		array(i) = i
	end do

	where (array < 5) array = 1
	
	print *, "2"

end program testwherestmt !<<<<< 13