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