summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw3444.pp
blob: a065bf4b1e2e73a750957935f01d1747cf243d8e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
{ %cpu=i386 }

{ Source provided for Free Pascal Bug Report 3444 }
{ Submitted by "Arnstein" on  2004-12-09 }
{ e-mail: Arnstein.Prytz@jcu.edu.au }
{$asmmode intel}
program tmp;
begin
  asm
    fstp st(1 );
{------------^ NB space}
  end;
end.