1! { dg-do run } 2! PR 85797 - this used to get wrong results. 3 4 5PROGRAM testfortran2 6 IMPLICIT NONE 7 8 INTEGER, DIMENSION(10), TARGET :: i4array 9 10 i4array = (/ 1,2,3,4,5,6,7,8,9,10 /) 11 12 call InRef(i4array) 13 14CONTAINS 15 16 subroutine InRef(v) 17 INTEGER, DIMENSION(:), POINTER, INTENT(in) :: v 18 INTEGER :: i 19 if (any (v /= [(i,i=1,10)])) stop 1 20 END subroutine 21 22END 23