From 395c5ac21906fb8125709e0a2c2ed8c958f707e8 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 12 Dec 2004 17:50:27 +0000
Subject: [PATCH] no message

---
 tests/webtbs/tw3093.pp | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 tests/webtbs/tw3093.pp

diff --git a/tests/webtbs/tw3093.pp b/tests/webtbs/tw3093.pp
new file mode 100644
index 0000000000..54e87dde06
--- /dev/null
+++ b/tests/webtbs/tw3093.pp
@@ -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.