1! { dg-do compile }
2! PR 91800 - this used to cause an ICE.
3module m
4 type t(n) ! { dg-error "does not have a component corresponding to parameter" }
5 integer, len :: n = 4habcd ! { dg-error "Initialization of structure component with a HOLLERITH constant" }
6 end type
7end
8