! Testcase for PR34770
! { dg-do run }
implicit none
integer, target :: x(0:12)
integer, pointer :: z(:)
integer i
do i = 0,12
x(i) = i
enddo
z => x
if (x(i) /= i .or. z(i) /= i) call abort
end