1249774Sgonzo! { dg-do run }
2249774Sgonzo!
3249774Sgonzo! PR 50570: [4.6/4.7 Regression] Incorrect error for assignment to intent(in) pointer
4249774Sgonzo!
5249774Sgonzo! Contributed by Bill Long <longb@cray.com>
6249774Sgonzo
7249774Sgonzoprogram bots_sparselu_pointer_intent_in
8249774Sgonzo
9249774Sgonzo  implicit none
10249774Sgonzo  integer, pointer :: array(:)
11249774Sgonzo
12249774Sgonzo  allocate(array(4))
13249774Sgonzo  array = 0
14249774Sgonzo  call sub(array)
15249774Sgonzo  if (sum(array)/=1) call abort
16249774Sgonzo
17249774Sgonzocontains
18249774Sgonzo
19249774Sgonzo  subroutine sub(dummy)
20249774Sgonzo    integer, pointer, intent(in) :: dummy(:)
21249774Sgonzo    dummy(1) = 1
22249774Sgonzo  end subroutine sub
23249774Sgonzo
24249774Sgonzoend program
25249774Sgonzo