1! PR fortran/16336 -- the two common blocks used to clash
2MODULE bar
3INTEGER :: I
4COMMON /X/I
5contains
6subroutine set_i()
7i = 5
8end subroutine set_i
9END MODULE bar
10
11USE bar
12INTEGER :: J
13COMMON /X/J
14j = 1
15i = 2
16if (j.ne.i) STOP 1
17if (j.ne.2) STOP 2
18call set_i()
19if (j.ne.5) STOP 3
20END
21