[Bug fortran/68151] ICE on using select case with function of wrong type

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68151

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
Or depending on used compiler options :

$ cat z3.f90
program p
   real :: z
   integer :: k = 1
   select case (k)
   case (:huge(z))
   end select
end

$ gfortran -fdefault-real-8 z3.f90
f951: internal compiler error: gfc_trans_select(): Bad type for case expr.

---

Analogous with complex :

$ cat z4.f90
program p
   integer :: k = 1
   select case (k)
   case (cmplx(1):)
   end select
end

$ gfortran -fdefault-real-8 z4.f90
f951: internal compiler error: gfc_trans_select(): Bad type for case expr.