C=======================================================================
C   FILE: TEST9.FOR
C   DATE: 21 July 2003
C
C   TEST: Zero DO Loop Increment, INC, at run time.
C
C
C   Contact: H. D. Knoble
C=======================================================================
        INTEGER SUM, INC
        DATA SUM/-1/, INC/0/
        CALL ANY(SUM,INC)
        WRITE(*,*) 'SUM=',SUM
        STOP
        END
        SUBROUTINE ANY(SUM,INC)
        INTEGER SUM,INC
C---INC=0 so the following loop both violates the Fortran
C   90 Standard, 8.1.4.4.1, Loop Initialization: "the value
C   of m3 must not be zero."
        DO I=1,5,INC
          SUM=SUM+I
        END DO
        RETURN
        END