1! { dg-do compile }
2! Tests the fix for PR35474, in which the PRIVATE statement would
3! cause the error Internal Error at (1): free_pi_tree(): Unresolved fixup
4! This arose because the symbol for 'i' emanating from the COMMON was
5! not being fixed-up as the EQUIVALENCE was built.
6!
7! Contributed by FX Coudert <fxcoudert@gcc.gnu.org>
8!
9module h5global
10  integer i
11  integer j
12  common /c/ i
13  equivalence (i, j)
14  private
15end module h5global
16
17program bug
18  use h5global
19end
20