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
|
