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