gcc/testsuite/gfortran.dg/pr85543.f90

! { dg-do compile }
! PR fortran/85543
program p
   procedure(), pointer :: z
contains
   real(z()) function f()  ! { dg-error "in initialization expression at" }
   end
end
! { dg-prune-output "Bad kind expression for function" }