2 ! PR35937, in which letting the length of 'c' to kind = 8 would
\r
3 ! screw up the interface and would cause an ICE. Note that this is
\r
4 ! actually the example of comment #4.
\r
6 ! Contributed by Thomas Koenig <tkoenig@gcc.gnu.org>
\r
10 if (f5 ('1') .ne. "a") call abort
\r
11 if (len (f5 ('1')) .ne. 1) call abort
\r
12 if (f5 ('4') .ne. "abcd") call abort
\r
13 if (len (f5 ('4')) .ne. 4) call abort
\r
16 character(len=1_8) :: c
\r
17 character(len=scan('123456789', c)) :: f5
\r
20 f5(i:i) = char (i+96)
\r