1# procarg1.tcl --
2#
3#  Test file for compilation.
4#  Contains a simple procedure whose argument list contains a malformed
5#  element (too many fields).
6#  The compilation should fail here.
7#
8# Copyright (c) 1998-2000 by Ajuba Solutions.
9#
10# See the file "license.terms" for information on usage and redistribution
11# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
12#
13# RCS: @(#) $Id: procarg1.tcl,v 1.2 2000/05/30 22:19:12 wart Exp $
14
15proc a { {x one two} } {
16    return "$x : $x"
17}
18
19a TEST
20