blob: 94fe6c553ef395706ebab33ea88b40db173fa207 (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { 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
|