From 0772eab6371c3b7224efaf09e2d4eaaec7934a69 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 10 Mar 2005 00:26:40 +0000
Subject: [PATCH] new bug

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

diff --git a/tests/webtbs/tw3634.pp b/tests/webtbs/tw3634.pp
new file mode 100644
index 0000000000..0ad77fc233
--- /dev/null
+++ b/tests/webtbs/tw3634.pp
@@ -0,0 +1,44 @@
+{ Source provided for Free Pascal Bug Report 3634 }
+{ Submitted by "Thomas Schatzl" on  2005-02-06 }
+{ e-mail:  }
+{$calling oldfpccall}
+
+type
+  PMedia=^TMedia;
+  TMedia=OBJECT
+    constructor Init;
+    destructor Done;
+    FUNCTION GetNumFrame:word;virtual;
+    FUNCTION GetCurFrame:word;virtual;
+  END;
+
+constructor TMedia.Init;
+begin
+end;
+
+destructor TMedia.Done;
+begin
+end;
+
+
+function TMedia.GetNumFrame : Word;
+begin
+  getnumframe:=4;
+end;
+
+function TMedia.GetCurFrame : Word;
+begin
+  getcurframe:=2;
+end;
+
+
+VAR    pos:longint;
+	m : PMedia;
+begin
+	new(m, Init());
+	pos := (m^.GetNumFrame)*298 div (m^.GetCurFrame);
+	writeln(pos);
+	if pos<>2*298 then
+	  halt(1);
+	dispose(m, Done);
+end.