blob: 1a2d4296b27575e08bfe9917aa6d6e4bf4aa7f25 [file] [log] [blame]
program test
implicit none
integer :: k
!<<<<<6,1,9,1,2,false,pass
do k=9,1,-4
print *, k
print *, (k+-2)
end do
end program test