From 05ff4fb3abd960b99d6f14b0def7e9187b9c659e Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Fri, 13 Apr 2007 11:54:16 +0000
Subject: 23273: fix bad patterns in reverse array subscripting

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

(limited to 'Test')

diff --git a/Test/D04parameter.ztst b/Test/D04parameter.ztst
index 1caed4479..25f4027fe 100644
--- a/Test/D04parameter.ztst
+++ b/Test/D04parameter.ztst
@@ -903,3 +903,13 @@
 >6100620061
 >6100620062
 >610063
+
+  array=(X)
+  patterns=("*X*" "spong" "a[b")
+  for pat in $patterns; do
+    print A${array[(r)$pat]}B C${array[(I)$pat]}D
+  done
+0:Bad patterns should never match array elements
+>AXB C1D
+>AB C0D
+>AB C0D
-- 
cgit 1.4.1