testmarcov.out

格式化源码的最新板

unit TestMarcoV;

{ AFS 27 March 2000
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility

 This code is test cases submitted by Marco van de Voort [[e-mail]]
}

interface

var
  bigs, storesc, searchdepth, mcount, rrate, hyva, huonoja, viimeksi,
  wmat, bmat, bonus, movesmade, posvalue: integer;
  kpos, positions, pos2: longint;
  mwk, mbk, mwra, mbra, mwrh, mbrh, viewscores, analysis, keskeyta,
  opening, stopcalc:     boolean;

implementation

procedure fred;
var
  s: string;
  i: integer;
begin
  s := 'a very very long string that is indeed much more than 80 chars in its total length and will break in an ugly manner';
  i := 12;

  if ((i < 1) and (i < 2) and (i < 3) and (i < 4) and (i < 5) and
    (i < 6) and (i < 7)) then
  begin
  end;
end;

end.