Artifact c5a0dc140eb39199dd669f68a98cd10e39ca76a0:
# 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"