path: root/gcc/testsuite/gfortran.dg/pr96025.f90

! { dg-do compile }
! PR fortran/96025 - ICE in expr_check_typed_help
! Contributed by G.Steinmetz

program p
  print *, f()
contains
  character(char(1)) function f() ! { dg-error "must be of INTEGER type" }
    f = 'f'
  end
end