program test

    implicit none
    integer :: loopUpperBound

    integer :: i
    loopUpperBound = 3+5
    !<<<<<6,1,10,1,4,false,pass
    do i=1, loopUpperBound,4
        print *, i
        if(i+1>loopUpperBound) exit
        print *, (i+1)
        if(i+2>loopUpperBound) exit
        print *, (i+2)
        if(i+3>loopUpperBound) exit
        print *, (i+3)
    end do


end program test