Merge from mainline (165734:167278).
[official-gcc/graphite-test-results.git] / gcc / testsuite / gfortran.dg / lto / 20100110-1_0.f90
blobd3caa61da2894ab441e39d2180380a82970e1411
1 ! { dg-lto-do link }
2 ! { dg-lto-options {{ -O1 -flto }} }
3 ! { dg-suppress-ld-options "-O1" }
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
18 PROGRAM test
19 END