Editing Do while loop (section)

===Fortran===
{{Further|Fortran}}
With legacy ''Fortran 77'' there is no DO-WHILE construct but the same effect can be achieved with GOTO:
<!-- Fixed-form source example demonstrating FORTRAN 77 implementation of a simulated do-while loop. -->
<syntaxhighlight lang="fortran">
      INTEGER CNT,FACT
      CNT=5
      FACT=1
    1 CONTINUE
      FACT=FACT*CNT
      CNT=CNT-1
      IF (CNT.GT.0) GOTO 1
      PRINT*,FACT
      END
</syntaxhighlight>

'''Fortran 90''' and later supports a DO-While construct:

<syntaxhighlight lang="fortran">
program FactorialProg
    integer :: counter = 5
    integer :: factorial = 1

    factorial = factorial * counter
    counter = counter - 1

    do while (counter /= 0)
        factorial = factorial * counter
        counter = counter - 1
     end do

    print *, factorial
end program FactorialProg
</syntaxhighlight>