gcc/testsuite/gfortran.dg/pr96025.f90

   1 ! { dg-do compile }
   2 ! PR fortran/96025 - ICE in expr_check_typed_help
   3 ! Contributed by G.Steinmetz
   4
   5 program p
   6   print *, f()
   7 contains
   8   character(char(1)) function f() ! { dg-error "must be of INTEGER type" }
   9     f = 'f'
  10   end
  11 end