fpcsrc/tests/tbf/tb0204.pp


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

{ %fail }
{ %cpu=i386 }
{ %opt=-Cg- }

var
  a: longint;
begin
  {$asmmode att}
  asm
.LPIC:
    movl a-.LPIC-.LPIC(%ecx),%eax
  end;
end.