3 ! Test case by G. Steinmetz
6 character(len
=1, kind
=1) :: x(3) = ['a', 'b', 'c']
7 character(len
=1, kind
=4) :: y
= 4_
'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" }