blob: 4438d3e6912fb1d3ac6970b8678251bf18cf4474 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { dg-do compile }
! PR fortran/68108
! Code contributed by Juergen Reuter (juergen.reuter at desy dot de)
! Test fix for regression caused by PR fortran/67805.
module lexers
implicit none
type :: template_t
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
|
