From b7a7bfd1151c8c414d95cb023fae73b216d31108 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 23 Nov 1998 12:51:31 +0000
Subject: [PATCH]   + 183

---
 bugs/bug0183.pp | 27 +++++++++++++++++++++++++++
 bugs/readme.txt |  3 +--
 2 files changed, 28 insertions(+), 2 deletions(-)
 create mode 100644 bugs/bug0183.pp

diff --git a/bugs/bug0183.pp b/bugs/bug0183.pp
new file mode 100644
index 0000000000..eb20788d3f
--- /dev/null
+++ b/bugs/bug0183.pp
@@ -0,0 +1,27 @@
+program Internal_Error_10;
+ 
+type
+  PBug = ^TBug;
+  TBug = array[1..1] of boolean;
+ 
+var
+  Left : PBug;
+  test : longint;
+ 
+begin
+  New(left);
+  test := 1;
+ 
+{ following shows internal error 10 only if the
+ 
+    array index is a var on both sides
+  ( if either is a constant then it compiles fine, error only occurs if the
+    not is in the statement )
+    bug only appears if the array is referred to using a pointer -
+      if using TBug, and no pointers it compiles fine
+      with PBug the error appears
+    }
+ 
+  Left^[test] := not Left^[test];
+end.
+
diff --git a/bugs/readme.txt b/bugs/readme.txt
index ba2280e71a..1a974ddc5d 100644
--- a/bugs/readme.txt
+++ b/bugs/readme.txt
@@ -234,5 +234,4 @@ bug0163.pp   missing <= and >= operators for sets.
 bug0169.pp   missing new(type) support for not object/class
 bug0171.pp   missing typecasting in constant expressions
 bug0182.pp   @record.field doesn't work in constant expr
-
-
+bug0183.pp   internal error 10