From ae55717d7b54612e35ceed4d7be1253810d59b1c Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 20 Nov 2001 14:28:17 +0000
Subject: [PATCH] no message

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

diff --git a/tests/webtbs/tw1677.pp b/tests/webtbs/tw1677.pp
new file mode 100644
index 0000000000..f09619665d
--- /dev/null
+++ b/tests/webtbs/tw1677.pp
@@ -0,0 +1,23 @@
+{ Source provided for Free Pascal Bug Report 1677 }
+{ Submitted by "Anders Lindeberg" on  2001-11-10 }
+{ e-mail: anders.lindeberg@telia.com }
+program test;
+type trec = record i:integer; s:ansistring end;
+procedure p1(const r:trec); begin end;
+procedure p2(r:trec); begin end;
+var r:trec; s:ansistring;
+begin
+  s:=chr(ord('A')+random(26));
+  r.s:=s;
+  if plongint(pointer(s)-4)^<>3 then
+    halt(1);
+  p1(r);
+  if plongint(pointer(s)-4)^<>3 then
+    halt(1);
+  p2(r);
+  if plongint(pointer(s)-4)^<>3 then
+    halt(1);
+  writeln('ok');
+end.
+
+