gcc/testsuite/gfortran.dg/pr103607.f90

   1 ! { dg-do compile }
   2 ! PR fortran/103607 - ICE in do_subscript, at fortran/frontend-passes.c:2927
   3 ! Contributed by G.Steinmetz
   4
   5 program p
   6   integer :: i, x(abs(2.)) ! { dg-error "must be of INTEGER type" }
   7   do i = 1, 2
   8      x(i) = 0
   9   end do
  10 end
  11
  12 ! { dg-prune-output "must have constant shape" }