blob: da9c3a92b9aa1d75824af98cc9727ad1e25b3ad7 [file] [log] [blame]
program test
implicit none
integer :: k
!<<<<<6,1,9,1,1,true,pass
do k=5,1,-1
print *, k
end do
end program test