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

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