view gcc/testsuite/gfortran.dg/pointer_remapping_8.f90 @ 152:2b5abeee2509

update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents 04ced10e8804
children
line wrap: on
line source

! { dg-do compile }
!
! PR 54788 ICE on pointer-array element assignment
!
program bug
  integer, pointer :: a(:)
  integer :: b
  allocate(a(0:0))
  a(0:0) => b ! { dg-error "Rank remapping target must be rank 1 or simply contiguous" }
end