blob: 94fe6c553ef395706ebab33ea88b40db173fa207 [file] [log] [blame]
! { 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