Subversion Repositories openrisc_2011-10-31

! { dg-do compile }

! { dg-do compile }

! Tests the fix for PR35474, in which the PRIVATE statement would

! Tests the fix for PR35474, in which the PRIVATE statement would

! cause the error Internal Error at (1): free_pi_tree(): Unresolved fixup

! cause the error Internal Error at (1): free_pi_tree(): Unresolved fixup

! This arose because the symbol for 'i' emanating from the COMMON was

! This arose because the symbol for 'i' emanating from the COMMON was

! not being fixed-up as the EQUIVALENCE was built.

! not being fixed-up as the EQUIVALENCE was built.

!

!

! Contributed by FX Coudert 

! Contributed by FX Coudert 

!

!

module h5global

module h5global

  integer i

  integer i

  integer j

  integer j

  common /c/ i

  common /c/ i

  equivalence (i, j)

  equivalence (i, j)

  private

  private

end module h5global

end module h5global

program bug

program bug

  use h5global

  use h5global

end

end

! { dg-final { cleanup-modules "h5global" } }

! { dg-final { cleanup-modules "h5global" } }