Program Markus2;

  {$X+}

  type
    VarRealProc = ^Function ( var x, y: real ): integer;


Function foo ( var x, y: real ): integer;

begin { foo }
  writeln ( 'failed' );
  foo:= 0;
end { foo };


Procedure bar ( f: VarRealProc );

  var
    u, v: real = 0;

begin { bar }
  f ( u, v );               { WRONG }
end { bar };


begin
  bar ( @foo );
end.

