1! { dg-do run }
2! PR35937, in which letting the length of 'c' to kind = 8 would
3! screw up the interface and would cause an ICE. Note that this is
4! actually the example of comment #4.
5!
6! Contributed by Thomas Koenig <tkoenig@gcc.gnu.org>
7!
8program main
9  implicit none
10  if (f5 ('1') .ne. "a") call abort
11  if (len (f5 ('1')) .ne. 1) call abort
12  if (f5 ('4') .ne. "abcd") call abort
13  if (len (f5 ('4')) .ne. 4) call abort
14contains
15  function f5 (c)
16    character(len=1_8) :: c
17    character(len=scan('123456789', c)) :: f5
18    integer :: i
19    do i = 1, len (f5)
20       f5(i:i) = char (i+96)
21    end do
22  end function f5
23end program main
24