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

 ! { dg-do compile }

 function f()
   f = 1.0
 end function

 program pr95614
   common /c1/ f
 end program
	! { dg-do compile }

	function f()
	f = 1.0
	end function

	program pr95614
	common /c1/ f
	end program