! { dg-do compile }

subroutine s(c)
   character(((0)/0)) :: c  ! { dg-error "Division by zero" }
end