diff options
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/melt/t2iter.bysl | 23 |
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)) |