gcc/testsuite/gfortran.dg/g77/20001111.f

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