gcc/testsuite/gfortran.dg/common_17.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Wall" }
   3 ! PR fortran/49693 - this used to cause a spurious warning for the
   4 ! variable in the common block.
   5 ! Test case by Stephan Kramer.
   6 module foo
   7   implicit none
   8   integer:: a, b
   9   common a
  10 end module foo