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/] [graphite/] [id-8.f] - Rev 414

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

      subroutine foo(mxgtot,mxsh)
      logical b
      dimension ex(mxgtot),cs(mxgtot)
         do 500 jg = k1,ig
            u = ex(ig)+ex(jg)
            z = u*sqrt(u)
            x = cs(ig)*cs(jg)/z
            if (ig .eq. jg) go to 480
               x = x+x
  480       continue
            y = y+x
  500    continue
      if(y.gt.t) z=1/sqrt(y)
      if (b) then
         write(9) z
      endif
      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.