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

! { dg-do compile }
module m
   integer :: n
contains
   subroutine s
      character(n(3)) :: c  ! { dg-error "not a function" }
   end
end