paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 10:19:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2004-12-12 17:50:27 +00:00
parent b69efa9fdb
commit 395c5ac219
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/webtbs/tw3093.pp Normal file
View File

@ -0,0 +1,23 @@
{ %cpu=i386 }
{ Source provided for Free Pascal Bug Report 3093 }
{ Submitted by "Dail Singleton" on 2004-05-08 }
{ e-mail: fdails@hal-pc.org }
{$asmmode intel}
var
d1,d2,d3 : double;
begin
d1:=1;
d2:=2;
asm
fld d1
fld d2
fdivr st(1),st
fst d3
end;
if d3<>2 then
begin
writeln(d3);
halt(1);
end;
end.