blob: 3b25bd0b7e5dacb0c956302e7cbf8c5a824de0e9 [file] [log] [blame]
program test
implicit none
integer :: i, j
!<<<<<6,1,10,1,pass
do i=0,4,1
print *, (i*1+2)
print *, (i*-1+6)
end do
end program test