[Bug fortran/66927] [6 Regression] ICE in gfc_conf_procedure_call

["juergen.reuter at desy dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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.