1 2 3 4 5 6 7
! { dg-do compile } program p character(((0)/0)) :: c ! { dg-error "Division by zero" } common /x/ c end