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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [lto/] [20100110-1_0.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-lto-do link }
2
! { dg-lto-options {{ -O1 -flto }} }
3
! { dg-suppress-ld-options "-O1" }
4
 
5
      SUBROUTINE ylm4(ylm)
6
      COMPLEX, INTENT (OUT):: ylm(1)
7
      INTEGER l,m
8
      COMPLEX ylms
9
      REAL, ALLOCATABLE, SAVE  :: ynorm(:)
10
      ylms = 0
11
      DO m = 1, 1
12
         DO l = m, 1
13
            ylm(m) = conjg(ylms)*ynorm(m)
14
         ENDDO
15
      ENDDO
16
      END SUBROUTINE ylm4
17
 
18
      PROGRAM test
19
      END

powered by: WebSVN 2.1.0

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