freepascal.compiler/tests/test/tblock1.pp

{ %target=darwin,iphonesim}

{$modeswitch blocks}

type
  tblock = procedure is block;

procedure test(b: tblock);
  begin
    b;
  end;

procedure proc;
  begin
    writeln('called as block');
  end;

const
  bconst: tblock = @proc;

var
  b: tblock;
begin
  b:=@proc;
  b;
  test(@proc);
  test(b);
  bconst;
  test(bconst);
end.