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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [pr36922.f] - Rev 414

Go to most recent revision | Compare with Previous | Blame | View Log

C PR tree-optimization/36922
C { dg-do compile }
C { dg-options "-O2 -ftree-loop-linear" }
      SUBROUTINE PR36922(N,F,Z,C)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      DIMENSION C(23821),Z(0:2*N+1),F(0:2*N)
      I=0
      DO L=0,N
        DO M=0,L
          DO M2=M,L
            I=I+1
            C(I)=F(L+M)*F(L-M)*Z(L-M2)/(F(M2+M)*F(M2-M)*F(L-M2)*F(L-M2))
          ENDDO
        ENDDO
      ENDDO
      END
 

Go to most recent revision | 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.