44 lines
748 B
Coq
44 lines
748 B
Coq
|
// Check that break and continue are supported in constant functions in do-while
|
||
|
|
// loops
|
||
|
|
|
||
|
|
module test;
|
||
|
|
|
||
|
|
function automatic integer f1(integer x);
|
||
|
|
integer j = 0;
|
||
|
|
integer i = 0;
|
||
|
|
do begin
|
||
|
|
if (i >= x) begin
|
||
|
|
break;
|
||
|
|
end
|
||
|
|
j++;
|
||
|
|
i++;
|
||
|
|
end while (i < 10);
|
||
|
|
return j;
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
function automatic integer f2(integer x);
|
||
|
|
integer j = 0;
|
||
|
|
integer i = 0;
|
||
|
|
do begin
|
||
|
|
i++;
|
||
|
|
if (i % 2 == 0) begin
|
||
|
|
continue;
|
||
|
|
end
|
||
|
|
j++;
|
||
|
|
end while (i < x);
|
||
|
|
return j;
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
reg [f1(3):0] x;
|
||
|
|
reg [f2(6):0] y;
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
if ($bits(x) === 4 && $bits(y) === 4) begin
|
||
|
|
$display("PASSED");
|
||
|
|
end else begin
|
||
|
|
$display("FAILED");
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
endmodule
|