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