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

   1 c { dg-do run }
   2       REAL DAT(2,5)
   3       DO I = 1, 5
   4          DAT(1,I) = I*1.6356-NINT(I*1.6356)
   5          DAT(2,I) = I
   6       ENDDO
   7       DO I = 1, 4
   8          DO J = I+1, 5
   9             IF (DAT(1,J) - DAT(1,I) .LT. 0.0) THEN
  10                DO K = 1, 2
  11                   TMP = DAT(K,I)
  12                   DAT(K,I) = DAT(K,J)
  13                   DAT(K,J) = TMP
  14                ENDDO
  15             ENDIF
  16          ENDDO
  17       ENDDO
  18       DO I = 1, 4
  19          IF (DAT(1,I) .GT. DAT(1,I+1)) CALL ABORT
  20       ENDDO
  21       END