OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [20010430.f] - Rev 816

Compare with Previous | Blame | View Log

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
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.