Subversion Repositories openrisc

! { dg-do run }
!
! PR 50570: [4.6/4.7 Regression] Incorrect error for assignment to intent(in) pointer
!
! Contributed by Bill Long <longb@cray.com>

program bots_sparselu_pointer_intent_in

  implicit none
  integer, pointer :: array(:)

  allocate(array(4))
  array = 0
  call sub(array)
  if (sum(array)/=1) call abort

contains

  subroutine sub(dummy)
    integer, pointer, intent(in) :: dummy(:)
    dummy(1) = 1
  end subroutine sub

end program