e187cc0a |
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 | |