From 4fab17e62aaa2c0628721df45609e9ba6b17a6bc Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Wed, 25 Jul 2007 09:26:51 +0000
Subject: 23696: x=x; x[-10]=y did bad things

---
 Test/D04parameter.ztst | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'Test/D04parameter.ztst')

diff --git a/Test/D04parameter.ztst b/Test/D04parameter.ztst
index 6df466ed0..7f229e9a6 100644
--- a/Test/D04parameter.ztst
+++ b/Test/D04parameter.ztst
@@ -920,3 +920,20 @@
 0:Numeric sorting
 >a6 a17 a117 b6 b17 b117
 >b117 b17 b6 a117 a17 a6
+
+  x=sprodj
+  x[-10]=scrumf
+  print $x
+0:Out of range negative scalar subscripts
+>scrumfsprodj
+
+  a=(some sunny day)
+  a[-10]=(we\'ll meet again)
+  print -l $a
+0:Out of range negative array subscripts
+>we'll
+>meet
+>again
+>some
+>sunny
+>day
-- 
cgit 1.4.1