! { dg-do compile }
! PR fortran/103607 - ICE in do_subscript, at fortran/frontend-passes.c:2927
! Contributed by G.Steinmetz

program p
  integer :: i, x(abs(2.)) ! { dg-error "must be of INTEGER type" }
  do i = 1, 2
     x(i) = 0
  end do
end

! { dg-prune-output "must have constant shape" }