gcc/testsuite/gfortran.dg/module_commons_1.f90

   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 !
   6 module m1
   7   common /x/ a
   8 end module m1
   9 module m2
  10   common /x/ a
  11 end module m2
  12
  13 subroutine foo ()
  14   use m2
  15   if (a.ne.99.0) call abort ()
  16 end subroutine foo
  17
  18 program collision
  19   use m1
  20   use m2, only: b=>a
  21   b = 99.0
  22   call foo ()
  23 end program collision
  24