* new test

git-svn-id: trunk@7305 -

.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

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.
+