mirror of
https://github.com/steveicarus/iverilog.git
synced 2026-09-07 19:56:53 +02:00
Lars-Peter Clausen
1a10abeae7
Check that queues of packed arrays are supported. These tests are identical to the existing queue tests for other data type, just that the data type is a packed array. Signed-off-by: Lars-Peter Clausen <[email protected]>
81 lines
2.3 KiB
Verilog
81 lines
2.3 KiB
Verilog
module top;
|
|
typedef reg [4:0] T1;
|
|
typedef T1 [7:0] T2;
|
|
|
|
T2 q_tst [$:2];
|
|
T2 q_tmp [$];
|
|
bit passed;
|
|
|
|
task automatic check_size(integer size,
|
|
string fname,
|
|
integer lineno);
|
|
if (q_tst.size !== size) begin
|
|
$display("%s:%0d: Failed: queue size != %0d (%0d)",
|
|
fname, lineno, size, q_tst.size);
|
|
passed = 1'b0;
|
|
end
|
|
endtask
|
|
|
|
task automatic check_idx_value(integer idx,
|
|
T2 expected,
|
|
string fname,
|
|
integer lineno);
|
|
if (q_tst[idx] != expected) begin
|
|
$display("%s:%0d: Failed: element [%0d] != %0d (%0d)",
|
|
fname, lineno, idx, expected, q_tst[idx]);
|
|
passed = 1'b0;
|
|
end
|
|
endtask
|
|
|
|
initial begin
|
|
passed = 1'b1;
|
|
|
|
check_size(0, `__FILE__, `__LINE__);
|
|
|
|
q_tst.push_back(2);
|
|
q_tst.push_front(1);
|
|
q_tst.push_back(3);
|
|
q_tst.push_back(100); // Warning: item not added.
|
|
|
|
check_size(3, `__FILE__, `__LINE__);
|
|
check_idx_value(0, 1, `__FILE__, `__LINE__);
|
|
check_idx_value(1, 2, `__FILE__, `__LINE__);
|
|
check_idx_value(2, 3, `__FILE__, `__LINE__);
|
|
|
|
q_tst.push_front(5); // Warning: back item removed.
|
|
q_tst[3] = 3; // Warning: item not added.
|
|
|
|
check_size(3, `__FILE__, `__LINE__);
|
|
check_idx_value(0, 5, `__FILE__, `__LINE__);
|
|
check_idx_value(1, 1, `__FILE__, `__LINE__);
|
|
check_idx_value(2, 2, `__FILE__, `__LINE__);
|
|
|
|
q_tst.insert(3, 10); // Warning: item not added.
|
|
q_tst.insert(1, 2); // Warning: back item removed.
|
|
|
|
check_size(3, `__FILE__, `__LINE__);
|
|
check_idx_value(0, 5, `__FILE__, `__LINE__);
|
|
check_idx_value(1, 2, `__FILE__, `__LINE__);
|
|
check_idx_value(2, 1, `__FILE__, `__LINE__);
|
|
|
|
q_tst = '{1, 2, 3, 4}; // Warning: items not added.
|
|
|
|
check_size(3, `__FILE__, `__LINE__);
|
|
check_idx_value(0, 1, `__FILE__, `__LINE__);
|
|
check_idx_value(1, 2, `__FILE__, `__LINE__);
|
|
check_idx_value(2, 3, `__FILE__, `__LINE__);
|
|
|
|
q_tmp = '{4, 3, 2, 1};
|
|
q_tst = q_tmp; // Warning not all items copied
|
|
q_tmp[0] = 5;
|
|
|
|
check_size(3, `__FILE__, `__LINE__);
|
|
check_idx_value(0, 4, `__FILE__, `__LINE__);
|
|
check_idx_value(1, 3, `__FILE__, `__LINE__);
|
|
check_idx_value(2, 2, `__FILE__, `__LINE__);
|
|
|
|
if (passed) $display("PASSED");
|
|
|
|
end
|
|
endmodule : top
|