tests/bugs/modalg_3/bug22595

   1 puts "============"
   2 puts "OCC22595"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # gp_Mat's constructors incompletely initilize memory
   7 ######################################################
   8
   9 set BugNumber OCC22595
  10 pload QAcommands
  11
  12 set Min_ListLength 11
  13
  14 set List [ OCC22595 ]
  15
  16 set status 0
  17 set ListLength [llength ${List}]
  18
  19 if { ${ListLength} != ${Min_ListLength}} {
  20    set status 1
  21    puts "Error: ListLength = ${ListLength}"
  22 }
  23
  24 set index0 0
  25 set M11  [lindex ${List} [expr ${index0} +2]]
  26 set M12  [lindex ${List} [expr ${index0} + 3 ]]
  27 set M13  [lindex ${List} [expr ${index0} + 4 ]]
  28 set M21  [lindex ${List} [expr ${index0} + 5 ]]
  29 set M22  [lindex ${List} [expr ${index0} + 6 ]]
  30 set M23  [lindex ${List} [expr ${index0} + 7 ]]
  31 set M31  [lindex ${List} [expr ${index0} + 8 ]]
  32 set M32  [lindex ${List} [expr ${index0} + 9 ]]
  33 set M33  [lindex ${List} [expr ${index0} + 10 ]]
  34
  35 if { ${M11} != 0 || ${M12} != 0 || ${M13} != 0 } {
  36    set status 1
  37 }
  38 if { ${M21} != 0 || ${M22} != 0 || ${M23} != 0 } {
  39    set status 1
  40 }
  41 if { ${M31} != 0 || ${M32} != 0 || ${M33} != 0 } {
  42    set status 1
  43 }
  44 if { $status != 0 } {
  45     puts  "Faulty $BugNumber"
  46 } else {
  47     puts  "OK $BugNumber"
  48 }
  49
  50
  51