gcc/testsuite/gfortran.dg/pr85543.f90

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