1! { dg-do run } 2! This program tests that use associated common blocks work. 3! 4! provided by Paul Thomas - pault@gcc.gnu.org 5! 6module m1 7 common /x/ a 8end module m1 9module m2 10 common /x/ a 11end module m2 12 13subroutine foo () 14 use m2 15 if (a.ne.99.0) STOP 1 16end subroutine foo 17 18program collision 19 use m1 20 use m2, only: b=>a 21 b = 99.0 22 call foo () 23end program collision 24