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

 ! { dg-do compile }

 subroutine s
 end subroutine

 program pr95614
   common /c1/ s
   s = 9.0
 end program
	! { dg-do compile }

	subroutine s
	end subroutine

	program pr95614
	common /c1/ s
	s = 9.0
	end program