27 lines
441 B
Coq
27 lines
441 B
Coq
|
module automatic_task();
|
||
|
|
|
||
|
|
reg [7:0] array[3:0];
|
||
|
|
|
||
|
|
task automatic fill_array;
|
||
|
|
|
||
|
|
input [7:0] value;
|
||
|
|
|
||
|
|
integer i, j;
|
||
|
|
|
||
|
|
fork
|
||
|
|
for (i = 0; i < 4; i = i + 1) begin
|
||
|
|
#10 array[i] = value;
|
||
|
|
end
|
||
|
|
for (j = 0; j < 4; j = j + 1) begin
|
||
|
|
@(array[j]) $display(array[0], array[1], array[2], array[3]);
|
||
|
|
@(array[j]) $display(array[0], array[1], array[2], array[3]);
|
||
|
|
end
|
||
|
|
join
|
||
|
|
|
||
|
|
endtask
|
||
|
|
|
||
|
|
initial #1 fill_array(1);
|
||
|
|
initial #2 fill_array(2);
|
||
|
|
|
||
|
|
endmodule
|