https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66927
--- Comment #15 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Here it it:
{{{
module lexers
implicit none
private
type :: template_t
private
character(256) :: charset1
integer :: len1
end type template_t
contains
subroutine match_quoted (tt, s, n)
type(template_t), intent(in) :: tt
character(*), intent(in) :: s
integer, intent(out) :: n
character(tt%len1) :: ch1
ch1 = tt%charset1
end subroutine match_quoted
end module lexers
}}}
I believe this comes from your commit, so I don't open up a new ticket. Would
be cool if this can be solved quickly.
