blob: 16854f96c908dd9084be05f8e00706c1e8819477 [file] [log] [blame]
program test
implicit none
integer :: loopUpperBound
integer :: i, n=4
loopUpperBound = n*n
!<<<<<6,1,8,1,2,false,pass
do i=1, loopUpperBound,2
print *, i
if(i+1>loopUpperBound) exit
print *, (i+1)
end do
end program test