puts "TODO OCC25917 ALL: Faulty shapes in variables faulty_1 to faulty_"
puts "TODO OCC25917 ALL: Error : The square of result shape is"
-puts "TODO OCC25917 ALL: Error : Result shape is WRONG because it must contains"
+puts "TODO OCC25917 ALL: Error : is WRONG because number of "
if { [regexp {Debug mode} [dversion]] } {
puts "TODO OCC25917 ALL: TEST INCOMPLETE"
puts "TODO OCC25917 ALL: Tcl Exception"