# Script to check "format" problem
puts stdout "'format' test script"
#
puts stdout "tcl_patchLevel = $tcl_patchLevel"
parray tcl_platform
#
puts stdout "\nSetting x =            \"[set x "-0.000"]\""
puts stdout "Formatting x to %9.3f: \"[format %9.3f $x]\"\n"
