1# for.tcl --
2#
3#  Test file for compilation.
4#  Contains nested for loops, used to check generation of the exception
5#  ranges arrays.
6#
7# Copyright (c) 1998-2000 by Ajuba Solutions.
8#
9# See the file "license.terms" for information on usage and redistribution
10# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
11#
12# RCS: @(#) $Id: for.tcl,v 1.2 2000/05/30 22:19:11 wart Exp $
13
14set result {}
15set top 8
16
17for {set outerCounter 1} {$outerCounter <= $top} {incr outerCounter} {
18    append result $outerCounter
19
20    for {set innerCounter 1} \
21	    {$innerCounter <= $outerCounter} {incr innerCounter} {
22	append result .
23    }
24}
25
26append result DONE
27set result
28