1! Testcase for PR34770 2! { dg-do run } 3 implicit none 4 integer, target :: x(0:12) 5 integer, pointer :: z(:) 6 integer i 7 do i = 0,12 8 x(i) = i 9 enddo 10 z => x 11 do i = 0,12 12 if (x(i) /= i .or. z(i) /= i) STOP 1 13 enddo 14end 15