Subversion Repositories openrisc

! { 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