gcc/testsuite/gfortran.dg/minmax_char_3.f90

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