summaryrefslogtreecommitdiff
path: root/gcc/testsuite/melt/t2iter.bysl
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/testsuite/melt/t2iter.bysl')
-rw-r--r--gcc/testsuite/melt/t2iter.bysl23
1 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/melt/t2iter.bysl b/gcc/testsuite/melt/t2iter.bysl
new file mode 100644
index 00000000000..377d92e00a7
--- /dev/null
+++ b/gcc/testsuite/melt/t2iter.bysl
@@ -0,0 +1,23 @@
+;; -*- lisp -*-
+
+;; it could be possible that the local bindings of iterators are
+;; flowing outside; this is wrong of course
+
+;; TO BE TESTED
+
+(defun t2iter (tu)
+ (foreach_in_multiple
+ (tu)
+ (comp :long ix)
+ (debug_msg comp "t2iter first loop")
+ (assert_msg "check first comp" comp)
+ )
+ (foreach_in_multiple
+ (tu)
+ (comp :long ix)
+ (debug_msg comp "t2iter second loop")
+ (assert_msg "check second comp" comp)
+ )
+ )
+
+(t2iter (make_tuple3 discr_multiple 'a 'b 'c))