testconstbug.out

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

unit TestConstBug;

{
  This code compiles, but is not semantically meaningfull.
  It is test cases for the code-formating utility

  SF Bugs item #1152816 from Stefan Landauer
}

interface

implementation

procedure A(pb, pc: integer);
begin
end;

var
  b, c: integer;

const
  EffRandLinks = 28;
  EffRandOben = 15;
  EffRandUnten = EffRandOben + 102;
  EffRandRechts = EffRandLinks + 293;
  EffMax = 4;
  EffMin = 1;
  EffFaktor: extended = (EffRandUnten - EffRandOben) / (EffMax - EffMin);

procedure test;
begin
  a(b, c);
end;

end.