gcc/testsuite/gfortran.dg/pr67884.f90

! { dg-do compile }
! PR fortran/67884
! Original code contribute by Gerhard Steinmetz 
program p
   integer i
   print *, [(f(i), i=1,3)]
   print *, [(g(i), i=1,3)]
   contains
   function f(n)              ! { dg-error "has a deferred type parameter" }
      integer :: n
      character(:) :: f
      character(3) :: c = 'abc'
      f = c(n:n)
   end
   function g(n) result(z)    ! { dg-error "has a deferred type parameter" }
      integer :: n
      character(:) :: z
      character(3) :: c = 'abc'
      z = c(n:n)
   end
end program p