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