testreturnremoval.out

来自「格式化源码的最新板」· OUT 代码 · 共 55 行

unit TestReturnRemoval;

{ AFS 6 June 2001
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility

 This unit tests return removal
}


interface

implementation

procedure ParamsWithToManyReturns(a, b, c: integer; d: string; e, f, g: double);
begin
end;

procedure VarsWithTooManyReturns;
var
  a, b, c:    integer;
  d, e, f, g: string;
begin
  a := Random(10);
end;

procedure ExpessionWithReturns;
var
  a, b, c: integer;
begin
  a := Random(10) + Random(10) + Random(10);

  b := 3 * a + Random(10) * 4;
end;

procedure BlankVarLines;

var

  a, b, c: integer;

  d, e, f: integer;

begin

end;

procedure NoVarsBlankLines;

begin

end;

end.