blob: 0210cc7951e262ce2d2bf0b0c7b9f7bf77bd910f (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do compile }
!
! Test case by G. Steinmetz
program p
character(len=1, kind=1) :: x(3) = ['a', 'b', 'c']
character(len=1, kind=4) :: y = 4_'b'
print *, findloc(x, y) ! { dg-error " must be in type conformance" }
print *, findloc(x, y, 1) ! { dg-error " must be in type conformance" }
end
|
