From a9163ca6494d9cd1f675261e0373317273d5b46a Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 2 Nov 2004 12:26:19 +0000
Subject: [PATCH]   * inc(ptr) should not give warnings

---
 tests/test/cg/tcnvptr.pp | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 tests/test/cg/tcnvptr.pp

diff --git a/tests/test/cg/tcnvptr.pp b/tests/test/cg/tcnvptr.pp
new file mode 100644
index 0000000000..aca73ba096
--- /dev/null
+++ b/tests/test/cg/tcnvptr.pp
@@ -0,0 +1,15 @@
+{ %opt=-Sew }
+
+var
+  p : pointer;
+  b : byte;
+  w : word;
+  a : array[0..10] of char;
+begin
+  b:=1;
+  w:=1;
+  p:=@a;
+  // This should work without warnings
+  inc(p,b);
+  inc(p,w);
+end.