fpcsrc/tests/webtbs/tw3490.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ %OPT=-Sew -vw }

{ Source provided for Free Pascal Bug Report 3490 }
{ Submitted by "Tomas Hajny" on  2004-12-29 }
{ e-mail:  }
var
 A: byte;
 B: cardinal;

begin
 A := 3;
 B := 0;
 B := B + A * A;
end.