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