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