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

 ! { dg-do compile }

 program p
    character(0/(0)) :: c = '123456789'  ! { dg-error "Division by zero" }
    common c
 end
	! { dg-do compile }

	program p
	character(0/(0)) :: c = '123456789' ! { dg-error "Division by zero" }
	common c
	end