124 lines
3.2 KiB
Coq
124 lines
3.2 KiB
Coq
|
// Check behaviour with out-of-range and undefined array indices
|
||
|
|
// on LHS of blocking procedural assignment.
|
||
|
|
|
||
|
|
`ifdef __ICARUS__
|
||
|
|
`define SUPPORT_CONST_OUT_OF_RANGE_IN_IVTEST
|
||
|
|
`endif
|
||
|
|
|
||
|
|
module top;
|
||
|
|
|
||
|
|
reg array1[2:1];
|
||
|
|
reg array2[1:0];
|
||
|
|
|
||
|
|
`ifndef VLOG95
|
||
|
|
real array3[2:1];
|
||
|
|
real array4[1:0];
|
||
|
|
`endif
|
||
|
|
|
||
|
|
integer index;
|
||
|
|
|
||
|
|
reg failed;
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
failed = 0;
|
||
|
|
|
||
|
|
array1[1] = 1'b0;
|
||
|
|
array1[2] = 1'b0;
|
||
|
|
`ifdef SUPPORT_CONST_OUT_OF_RANGE_IN_IVTEST
|
||
|
|
array1[0] = 1'b1; // Constant out of bounds select may be an error
|
||
|
|
`endif
|
||
|
|
$display("array = %b %b", array1[2], array1[1]);
|
||
|
|
if ((array1[1] !== 1'b0) || (array1[2] !== 1'b0)) failed = 1;
|
||
|
|
|
||
|
|
array1[1] = 1'b0;
|
||
|
|
array1[2] = 1'b0;
|
||
|
|
`ifdef SUPPORT_CONST_OUT_OF_RANGE_IN_IVTEST
|
||
|
|
array1[3] = 1'b1; // Constant out of bounds select may be an error
|
||
|
|
`endif
|
||
|
|
$display("array = %b %b", array1[2], array1[1]);
|
||
|
|
if ((array1[1] !== 1'b0) || (array1[2] !== 1'b0)) failed = 1;
|
||
|
|
|
||
|
|
array2[0] = 1'b0;
|
||
|
|
array2[1] = 1'b0;
|
||
|
|
`ifdef SUPPORT_CONST_OUT_OF_RANGE_IN_IVTEST
|
||
|
|
array2['bx] = 1'b1; // Constant undefined out of bounds select may be an error
|
||
|
|
`endif
|
||
|
|
$display("array = %b %b", array2[1], array2[0]);
|
||
|
|
if ((array2[0] !== 1'b0) || (array2[1] !== 1'b0)) failed = 1;
|
||
|
|
|
||
|
|
index = 0;
|
||
|
|
array1[1] = 1'b0;
|
||
|
|
array1[2] = 1'b0;
|
||
|
|
array1[index] = 1'b1;
|
||
|
|
$display("array = %b %b", array1[2], array1[1]);
|
||
|
|
if ((array1[1] !== 1'b0) || (array1[2] !== 1'b0)) failed = 1;
|
||
|
|
|
||
|
|
index = 3;
|
||
|
|
array1[1] = 1'b0;
|
||
|
|
array1[2] = 1'b0;
|
||
|
|
array1[index] = 1'b1;
|
||
|
|
$display("array = %b %b", array1[2], array1[1]);
|
||
|
|
if ((array1[1] !== 1'b0) || (array1[2] !== 1'b0)) failed = 1;
|
||
|
|
|
||
|
|
index = 'bx;
|
||
|
|
array2[0] = 1'b0;
|
||
|
|
array2[1] = 1'b0;
|
||
|
|
array2[index] = 1'b1;
|
||
|
|
$display("array = %b %b", array2[1], array2[0]);
|
||
|
|
if ((array2[0] !== 1'b0) || (array2[1] !== 1'b0)) failed = 1;
|
||
|
|
|
||
|
|
`ifndef VLOG95
|
||
|
|
array3[1] = 0.0;
|
||
|
|
array3[2] = 0.0;
|
||
|
|
`ifdef SUPPORT_CONST_OUT_OF_RANGE_IN_IVTEST
|
||
|
|
array3[0] = 1.0; // Constant out of bounds select may be an error
|
||
|
|
`endif
|
||
|
|
$display("array = %0g %0g", array3[2], array3[1]);
|
||
|
|
if ((array3[1] != 0.0) || (array3[2] != 0.0)) failed = 1;
|
||
|
|
|
||
|
|
array3[1] = 0.0;
|
||
|
|
array3[2] = 0.0;
|
||
|
|
`ifdef SUPPORT_CONST_OUT_OF_RANGE_IN_IVTEST
|
||
|
|
array3[3] = 1.0; // Constant out of bounds select may be an error
|
||
|
|
`endif
|
||
|
|
$display("array = %0g %0g", array3[2], array3[1]);
|
||
|
|
if ((array3[1] != 0.0) || (array3[2] != 0.0)) failed = 1;
|
||
|
|
|
||
|
|
array4[0] = 0.0;
|
||
|
|
array4[1] = 0.0;
|
||
|
|
`ifdef SUPPORT_CONST_OUT_OF_RANGE_IN_IVTEST
|
||
|
|
array4['bx] = 1.0; // Constant undefined out of bounds select may be an error
|
||
|
|
`endif
|
||
|
|
$display("array = %0g %0g", array4[1], array4[0]);
|
||
|
|
if ((array4[0] != 0.0) || (array4[1] != 0.0)) failed = 1;
|
||
|
|
|
||
|
|
index = 0;
|
||
|
|
array3[1] = 0.0;
|
||
|
|
array3[2] = 0.0;
|
||
|
|
array3[index] = 1.0;
|
||
|
|
$display("array = %0g %0g", array3[2], array3[1]);
|
||
|
|
if ((array3[1] != 0.0) || (array3[2] != 0.0)) failed = 1;
|
||
|
|
|
||
|
|
index = 3;
|
||
|
|
array3[1] = 0.0;
|
||
|
|
array3[2] = 0.0;
|
||
|
|
array3[index] = 1.0;
|
||
|
|
$display("array = %0g %0g", array3[2], array3[1]);
|
||
|
|
if ((array3[1] != 0.0) || (array3[2] != 0.0)) failed = 1;
|
||
|
|
|
||
|
|
index = 'bx;
|
||
|
|
array4[0] = 0.0;
|
||
|
|
array4[1] = 0.0;
|
||
|
|
array4[index] = 1.0;
|
||
|
|
$display("array = %0g %0g", array4[1], array4[0]);
|
||
|
|
if ((array4[0] != 0.0) || (array4[1] != 0.0)) failed = 1;
|
||
|
|
`endif
|
||
|
|
|
||
|
|
if (failed)
|
||
|
|
$display("FAILED");
|
||
|
|
else
|
||
|
|
$display("PASSED");
|
||
|
|
end
|
||
|
|
|
||
|
|
endmodule
|