1! { dg-do compile } 2! PR fortran/68108 3! Code contributed by Juergen Reuter (juergen.reuter at desy dot de) 4! Test fix for regression caused by PR fortran/67805. 5module lexers 6 implicit none 7 type :: template_t 8 character(256) :: charset1 9 integer :: len1 10 end type template_t 11 12contains 13 14 subroutine match_quoted (tt, s, n) 15 type(template_t), intent(in) :: tt 16 character(*), intent(in) :: s 17 integer, intent(out) :: n 18 character(tt%len1) :: ch1 19 ch1 = tt%charset1 20 end subroutine match_quoted 21 22end module lexers 23