gcc/testsuite/gfortran.dg/module_blank_common.f90

   1 ! { dg-do run }
   2 !
   3 ! This tests that blank common works in modules. PR23270
   4 ! Contributed by Paul Thomas  <pault@gcc.gnu.org>
   5 !
   6 module global
   7   common a, b
   8   real    a, b
   9 end module global
  10 program blank_common
  11   use global
  12   common z
  13   complex z
  14   a = 999.0_4
  15   b = -999.0_4
  16   if (z.ne.cmplx (a,b)) call abort ()
  17 end program blank_common
  18
  19 ! { dg-final { cleanup-modules "global" } }