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