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