gcc/testsuite/gfortran.dg/pr107707.f90

   1 ! { dg-do compile }
   2 ! PR fortran/107707 - ICE in gfc_compare_actual_formal
   3 ! Contributed by G.Steinmetz
   4
   5 program p
   6   character(3), allocatable :: c
   7   c = 'abc'
   8   call s(c)
   9 contains
  10   subroutine s(x)
  11     character(real(3)), allocatable :: x ! { dg-error "must be of INTEGER type" }
  12   end
  13 end