| 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 |