littletest42.out

格式化源码的最新板

unit LittleTest42;

{ AFS 9 Sept 2003

 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility }

interface

implementation

uses Dialogs;

{ numeric labels }
procedure Foo(pi: integer);
label
  10, 20, bar, 42;
begin
  if pi > 12 then
    goto 10;

  ShowMessage('foo');

  goto bar;

  10:
    ShowMessage('10');

  bar:

  20: ;

end;

end.