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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

c { dg-do run }
      REAL DAT(2,5)
      DO I = 1, 5
         DAT(1,I) = I*1.6356-NINT(I*1.6356)
         DAT(2,I) = I
      ENDDO
      DO I = 1, 4
         DO J = I+1, 5
            IF (DAT(1,J) - DAT(1,I) .LT. 0.0) THEN
               DO K = 1, 2
                  TMP = DAT(K,I)
                  DAT(K,I) = DAT(K,J)
                  DAT(K,J) = TMP
               ENDDO
            ENDIF
         ENDDO
      ENDDO
      DO I = 1, 4
         IF (DAT(1,I) .GT. DAT(1,I+1)) CALL ABORT
      ENDDO
      END