! { dg-do compile }

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