gcc/testsuite/gfortran.dg/pr67805_2.f90

   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.
   5 module lexers
   6   implicit none
   7   type :: template_t
   8      character(256) :: charset1
   9      integer :: len1
  10   end type template_t
  11
  12 contains
  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
  22 end module lexers