Subversion Repositories openrisc

! { dg-do run }

! Test the fix for PR47844, in which the stride in the function result

! was ignored. Previously, the result was [1,3] at lines 15 and 16.

!

! Contributed by KePu  

!

PROGRAM test_pointer_value

  IMPLICIT NONE

  INTEGER, DIMENSION(10), TARGET :: array= [1,3,5,7,9,11,13,15,17,19]

  INTEGER, dimension(2) :: array_fifth

  INTEGER, POINTER, DIMENSION(:) :: ptr_array => NULL()

  INTEGER, POINTER, DIMENSION(:) :: ptr_array_fifth => NULL()

  ptr_array => array

  array_fifth = every_fifth (ptr_array)

  if (any (array_fifth .ne. [1,11])) call abort

  if (any (every_fifth(ptr_array) .ne. [1,11])) call abort

CONTAINS

  FUNCTION every_fifth (ptr_array) RESULT (ptr_fifth)

    IMPLICIT NONE

    INTEGER, POINTER, DIMENSION(:) :: ptr_fifth

    INTEGER, POINTER, DIMENSION(:), INTENT(in) :: ptr_array

    INTEGER :: low

    INTEGER :: high

    low = LBOUND (ptr_array, 1)

    high = UBOUND (ptr_array, 1)

    ptr_fifth => ptr_array (low: high: 5)

  END FUNCTION every_fifth

END PROGRAM test_pointer_value