From 5edcaa9912a68b58dd91cdbb20f2172395f56832 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 27 Oct 2003 20:44:42 +0000
Subject: [PATCH] no message

---
 tests/tbs/tb0458.pp | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 tests/tbs/tb0458.pp

diff --git a/tests/tbs/tb0458.pp b/tests/tbs/tb0458.pp
new file mode 100644
index 0000000000..7b9f38da48
--- /dev/null
+++ b/tests/tbs/tb0458.pp
@@ -0,0 +1,39 @@
+type smallword=word;
+
+Type  LocalHeader     = Record
+        Time          : Longint;
+      End;
+
+Type PkZipObject = Object
+       Buf         : longint;
+
+       Constructor ZIPInit;
+       Procedure FindFirstEntry;   Virtual;
+     End; {PkzipObject}
+
+     PkzipPtr = ^PkzipObject;
+
+
+Constructor PkzipObject.ZIPInit;
+Begin
+End;
+
+
+Procedure PkzipObject.FindFirstEntry;
+var LocalHeaderBuf: LocalHeader ABSOLUTE buf;
+Begin
+  LocalHeaderBuf.Time:=12341234;
+End;
+
+var
+  o : PkzipObject;
+
+begin
+  o.ZIPInit;
+  o.FindFirstEntry;
+  if o.Buf<>12341234 then
+    begin
+      writeln('error');
+      halt(1);
+    end;
+End.