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