gcc/testsuite/gfortran.dg/pr95614_2.f90 - gcc - Git at Google

 ! { dg-do compile }

 module m        ! { dg-error ".1." }
   common /xc/ m ! { dg-error "cannot appear in a COMMON" }
 end
	! { dg-do compile }

	module m ! { dg-error ".1." }
	common /xc/ m ! { dg-error "cannot appear in a COMMON" }
	end