Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pointer_intent_5.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { 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) STOP 1 contains subroutine sub(dummy) integer, pointer, intent(in) :: dummy(:) dummy(1) = 1 end subroutine sub end program