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