2 ! Tests fix for PR20838 - would ICE with vector subscript in
5 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
7 integer, parameter, dimension(3) :: i = (/2,1,3/)
8 integer, dimension(3), target :: tar
9 integer, dimension(2, 3), target :: tar2
10 integer, dimension(:), pointer :: ptr
13 ptr => tar(i) ! { dg-error "with vector subscript" }
15 ptr => tar2(2, i) ! { dg-error "with vector subscript" }