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

program p
  character(3), allocatable :: c
  c = 'abc'
  call s(c)
contains
  subroutine s(x)
    character(real(3)), allocatable :: x ! { dg-error "must be of INTEGER type" }
  end
end