3 ! Test case by G. Steinmetz
6 character(len
=1, kind
=4) :: x(3) = [4_
'a', 4_
'b', 4_
'c']
7 character(len
=1, kind
=1) :: y
= 'b'
8 print *, findloc(x
, y
) ! { dg-error " must be in type conformance" }
9 print *, findloc(x
, y
, 1) ! { dg-error " must be in type conformance" }