summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pointer_intent_5.f90
blob: c4e3c7a3c1d037b07428d06ec301c067036b9019 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
! { 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