Subversion Repositories openrisc

! { dg-do run }

! Tests the fix for PR27269 and PR27xxx.

! The former caused a segfault in trying to process

! module b, with an unused equivalence in a. The latter

! produced an assembler error due to multiple declarations

! for a module equivalence, when one of the variables was

! initialized, as M in module a.

!

module a

  integer, parameter :: dp = selected_real_kind (10)

  real(dp) :: reM, M = 1.77d0

  equivalence (M, reM)

end module a

module b

  use a, only : dp

end module b

  use a

  use b

  if (reM .ne. 1.77d0) call abort ()

  reM = 0.57d1

  if (M .ne. 0.57d1) call abort ()

end