gcc/testsuite/gfortran.dg/char_type_len.f90

   1 ! { dg-do run }
   2 ! Testcase for PR fortran/25681
   3 program 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) call abort
  12 end program char_type_len