From 81c88bd27df837ea16fea6a09faac8122451c06f Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 10 May 2007 16:54:40 +0000
Subject: [PATCH]   * new test

git-svn-id: trunk@7305 -
---
 .gitattributes         |  1 +
 tests/webtbs/tw8677.pp | 23 +++++++++++++++++++++++
 2 files changed, 24 insertions(+)
 create mode 100644 tests/webtbs/tw8677.pp

diff --git a/.gitattributes b/.gitattributes
index 7173eb6cfd..7a1259d134 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -8184,6 +8184,7 @@ tests/webtbs/tw8615.pp svneol=native#text/plain
 tests/webtbs/tw8633.pp svneol=native#text/plain
 tests/webtbs/tw8660.pp svneol=native#text/plain
 tests/webtbs/tw8664.pp svneol=native#text/plain
+tests/webtbs/tw8677.pp svneol=native#text/plain
 tests/webtbs/tw8685.pp svneol=native#text/plain
 tests/webtbs/tw8757.pp svneol=native#text/plain
 tests/webtbs/tw8777f.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw8677.pp b/tests/webtbs/tw8677.pp
new file mode 100644
index 0000000000..d678b00a62
--- /dev/null
+++ b/tests/webtbs/tw8677.pp
@@ -0,0 +1,23 @@
+{$mode delphi}
+
+function REGVAR(InputBuffer : Pointer): double;
+var
+  x: integer;
+  temp, y: double;
+begin
+  x := 1;
+  y := 1;
+
+  temp := exp((x/y));
+
+  Result:= Temp;
+end;
+
+var
+   Ptr1: pointer;
+begin
+    Ptr1 := 0;
+    REGVAR(Ptr1);
+    writeln('Test Complete.');
+end.
+