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