gcc/testsuite/g77.f-torture/execute/20001111.f

   1       DOUBLE PRECISION VALUE(2), TOLD, BK
   2       DATA VALUE /0D0, 1D0/
   3       DATA TOLD /0D0/
   4       DO I=1, 2
   5          BK = VALUE(I)
   6          IF(BK .GT. TOLD) GOTO 10
   7       ENDDO
   8       WRITE(*,*)'Error: BK = ', BK
   9       CALL ABORT
  10  10   CONTINUE
  11       WRITE(*,*)'No Error: BK = ', BK
  12       END