gcc/testsuite/gfortran.dg/do_subscript_4.f90


1
2
3
4
5
6
7
8
9
10
11

! { dg-do compile }
! PR 91424 - this used to warn although the DO loop is zero trip.
program main
  implicit none
  integer :: i
  real :: a(2)
  do i=1,3,-1
     a(i) = 2.
  end do
  print *,a
end program main