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