loopml.f

C  Author:   Mitch Richling<http://www.mitchr.me/>
C  IP:       Copyright 1993 by Mitch Richling.  All rights reserved.
C  Key word: FORTRAN f77 do
C  Notes:    Illustrates a common do-loop extension to FORTRAN 77 that
C            was specified by the MIL-STD-1753 (A Department of Defense
C            standard issued in 1988).  The extensions were REQUIRED for
C            a compiler to be used for a DoD project, and today they are
C            required for most government contract work with FORTRAN 77.
C            The "end do" syntax is a logical extension given the 'end if'
C            syntax in standard FORTRAN 77 -- really this should have been
C            in the standard!  This extension was already supported by many
C            compilers before MIL-STD-1753, and it is supported by just
C            about every compiler today.

C             loop MiL standard
      program loopml

      integer i

C     The MIL-STD-1753 do-loop syntax (no continue or line number!):
      do i=1,10
        write (*,*) 'i=', i
      end do

      end