Subversion Repositories openrisc

! { dg-do compile }

! Tests the fix for PR35470, in which the pointer assignment would fail

! because the assumed size 'arr' would get mixed up with the component

! 'p' in the check for the upper bound of an assumed size array.

!

! Contributed by Antony Lewis 

!

subroutine sub(arr)

  type real_pointer

    real, pointer :: p(:)

  end type real_pointer

  type(real_pointer), dimension(*) :: arr

  real, pointer :: p(:)

  p => arr(1)%p

end subroutine