! { dg-do run }! Testcase for PR fortran/25681program char_type_leninteger,parameter::n=9type foo_tcharacter(len=80)::bar(1)character(len=75)::gee(n)end type foo_ttype(foo_t)::fooif(len(foo%bar)/=80.or.len(foo%gee)/=75)call abortend program char_type_len