! { dg-do compile } | |
! PR96686: MIN/MAX should reject character arguments of different kind | |
program p | |
implicit none | |
character(kind=1) :: c1 = "1" | |
character(kind=4) :: c4 = 4_"4" | |
print *, min (c1, c4) ! { dg-error "Different character kinds" } | |
print *, min (c4, c1) ! { dg-error "Different character kinds" } | |
end program p |