|
111
|
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 !
|
|
|
9 module h5global
|
|
|
10 integer i
|
|
|
11 integer j
|
|
|
12 common /c/ i
|
|
|
13 equivalence (i, j)
|
|
|
14 private
|
|
|
15 end module h5global
|
|
|
16
|
|
|
17 program bug
|
|
|
18 use h5global
|
|
|
19 end
|
