1! { dg-do run } 2! Testcase for PR fortran/25681 3program char_type_len 4 integer,parameter :: n = 9 5 type foo_t 6 character (len = 80) :: bar (1) 7 character (len = 75) :: gee (n) 8 end type foo_t 9 type(foo_t) :: foo 10 11 if (len(foo%bar) /= 80 .or. len(foo%gee) /= 75) STOP 1 12end program char_type_len 13