blob: 38c7aebc5fff9afc1b8cdfaec2fe50f23ef6b863 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{ %fail }
{ Source provided for Free Pascal Bug Report 4445 }
{ Submitted by "lito steel" on 2005-10-17 }
{ e-mail: litosteel@yahoo.com }
{ those are the definitions }
const
StackMax = 10;
var
Stack:array[1..StackMax] of double;
StackTop: integer = 0;
{in this procedure the compiler complains}
procedure aAND;
var a: double;
begin
a := Stack[StackTop];
dec(StackTop);
Stack[StackTop] := Stack[StackTop] and a;
end;
begin
aand;
end.
|
