1 files changed, 34 insertions, 0 deletions
diff --git a/tests/test/tparray17.pp b/tests/test/tparray17.pp
new file mode 100644
index 0000000000..9434a3dee8
--- /dev/null
+++ b/tests/test/tparray17.pp
@@ -0,0 +1,34 @@
+{ from gpc tests, original name: pack6.pas }
+
+{ Introduced the type declaration. Previously, both arrays were `of 0..3'.
+  But EP 6.7.5.4 demands the component types to be the same, not only
+  compatible. GPC detects this now. Frank, 20030417 }
+
+Program Pack6;
+
+{$ifdef fpc}
+{$bitpacking on}
+type
+  Integer = ptrint;
+{$endif}
+
+Type
+  T03 = 0..3;
+
+Var
+  p: packed array [ 1..4 ] of T03;
+  u: array [ 1..4 ] of T03;
+  i: Integer;
+
+begin
+  for i:= 1 to 4 do
+    u [ i ]:= i - 1;
+  pack ( u, 1, p );
+  for i:= 1 to 4 do
+    if p [ i ] <> i - 1 then
+      begin
+        write ( 'failed: p', i, '=', p [ i ], '; ' );
+        halt(1);
+      end;
+  writeln ( 'OK' );
+end.