1! { dg-do compile } 2 3module m 4 type t 5 character(((0)/0)) :: c ! { dg-error "Division by zero" } 6 end type 7end 8 9