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