From 3dbaecd320fffe4aec10224bf94f003914206990 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 14 Feb 2005 16:45:22 +0000
Subject: [PATCH]   * new bug

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

diff --git a/tests/webtbs/tw3653.pp b/tests/webtbs/tw3653.pp
new file mode 100644
index 0000000000..7a4d2c6d50
--- /dev/null
+++ b/tests/webtbs/tw3653.pp
@@ -0,0 +1,31 @@
+{ Source provided for Free Pascal Bug Report 3653 }
+{ Submitted by "Marco" on  2005-02-14 }
+{ e-mail:  }
+
+{$ifdef fpc}
+{$mode delphi}
+{$else}
+type ptrint = integer;
+{$endif}
+
+Type
+     arrptr  = array[0..maxint div 4-1] of pointer;
+     arrint  = array[0..maxint div 4-1] of integer;
+     ppointer= ^arrptr;
+     parrint = ^arrint;
+     PLightSetElement = ^Pointer;
+     TLightSet = Pointer;
+
+     dlightsetiterator = record
+                           next : PLightSetElement;
+                         end;
+
+function lightstartiter(p:TLightSet):DLightSetIterator;
+
+
+begin
+     result.next:=@ppointer(ptrint(p) and not 3)[0];     // on size.
+end;
+
+begin
+end.