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 749

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


! { dg-lto-do link }
! { dg-lto-options {{ -O1 -flto }} }
! { dg-suppress-ld-options "-O1" }
 
      SUBROUTINE ylm4(ylm)
      COMPLEX, INTENT (OUT):: ylm(1)
      INTEGER l,m
      COMPLEX ylms
      REAL, ALLOCATABLE, SAVE  :: ynorm(:)
      ylms = 0
      DO m = 1, 1
         DO l = m, 1
            ylm(m) = conjg(ylms)*ynorm(m)
         ENDDO
      ENDDO
      END SUBROUTINE ylm4
 
      PROGRAM test
      END

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`

Browse

Tools

Subversion Repositories openrisc

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