Subversion Repositories openrisc

! { dg-do compile }

!

! PR fortran/49648

! ICE for calls to a use-associated function returning an array whose spec

! depends on a function call.

! Contributed by Tobias Burnus 

module m2

  COMPLEX, SAVE, ALLOCATABLE :: P(:)

contains

  FUNCTION getPhaseMatrix() RESULT(PM)

    COMPLEX:: PM(SIZE(P),3)

    PM=0.0

  END FUNCTION

end module m2

module m

  use m2

contains

   SUBROUTINE gf_generateEmbPot()

      COMPLEX :: sigma2(3,3)

      sigma2 = MATMUL(getPhaseMatrix(), sigma2)

   END SUBROUTINE

end module m

! { dg-final { cleanup-modules "m m2" } }