63 lines
1.3 KiB
Coq
63 lines
1.3 KiB
Coq
|
// The IEEE standard allows the out-of-bounds part-selects to be flagged as
|
||
|
|
// compile-time errors. If they are not, this test should pass.
|
||
|
|
module top;
|
||
|
|
|
||
|
|
reg [3:0][3:0] array1;
|
||
|
|
reg [3:0][3:0] array2;
|
||
|
|
reg [3:0][3:0] array3;
|
||
|
|
reg [3:0][3:0] array4;
|
||
|
|
reg [3:0][3:0] array5;
|
||
|
|
reg [3:0][3:0] array6;
|
||
|
|
|
||
|
|
|
||
|
|
reg failed = 0;
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
array1[-2+:2] = 8'h00;
|
||
|
|
array1[ 0+:2] = 8'h21;
|
||
|
|
array1[ 2+:2] = 8'h43;
|
||
|
|
array1[ 4+:2] = 8'h55;
|
||
|
|
|
||
|
|
array1[-1+:2] = 8'h10;
|
||
|
|
array2[ 1+:2] = 8'h32;
|
||
|
|
array2[ 3+:2] = 8'h54;
|
||
|
|
|
||
|
|
array3[-1-:2] = 8'h00;
|
||
|
|
array3[ 1-:2] = 8'h21;
|
||
|
|
array3[ 3-:2] = 8'h43;
|
||
|
|
array3[ 5-:2] = 8'h55;
|
||
|
|
|
||
|
|
array4[ 0-:2] = 8'h10;
|
||
|
|
array4[ 2-:2] = 8'h32;
|
||
|
|
array4[ 4-:2] = 8'h54;
|
||
|
|
|
||
|
|
array5[-1:-2] = 8'h00;
|
||
|
|
array5[ 1:0 ] = 8'h21;
|
||
|
|
array5[ 3:2 ] = 8'h43;
|
||
|
|
array5[ 5:4 ] = 8'h55;
|
||
|
|
|
||
|
|
array6[ 0:-1] = 8'h10;
|
||
|
|
array6[ 2:1 ] = 8'h32;
|
||
|
|
array6[ 4:3 ] = 8'h54;
|
||
|
|
|
||
|
|
$display("%h", array1);
|
||
|
|
if (array1 !== 16'h4321) failed = 1;
|
||
|
|
$display("%h", array2);
|
||
|
|
if (array2 !== 16'h4321) failed = 1;
|
||
|
|
$display("%h", array3);
|
||
|
|
if (array3 !== 16'h4321) failed = 1;
|
||
|
|
$display("%h", array4);
|
||
|
|
if (array4 !== 16'h4321) failed = 1;
|
||
|
|
$display("%h", array5);
|
||
|
|
if (array5 !== 16'h4321) failed = 1;
|
||
|
|
$display("%h", array6);
|
||
|
|
if (array6 !== 16'h4321) failed = 1;
|
||
|
|
|
||
|
|
if (failed)
|
||
|
|
$display("FAILED");
|
||
|
|
else
|
||
|
|
$display("PASSED");
|
||
|
|
end
|
||
|
|
|
||
|
|
endmodule
|