49 lines
824 B
Coq
49 lines
824 B
Coq
|
// Check that the constructor of a base class gets called exactly once when
|
||
|
|
// mixing implicit and explicit constructors.
|
||
|
|
|
||
|
|
module test;
|
||
|
|
|
||
|
|
bit failed = 1'b0;
|
||
|
|
|
||
|
|
`define check(val, exp) do begin \
|
||
|
|
if ((val) !== (exp)) begin \
|
||
|
|
$display("FAILED(%0d): `%s`, expected `%0d`, got `%0d`.", `__LINE__, \
|
||
|
|
`"val`", (exp), (val)); \
|
||
|
|
failed = 1'b1; \
|
||
|
|
end \
|
||
|
|
end while (0)
|
||
|
|
|
||
|
|
int d_new_calls = 0;
|
||
|
|
|
||
|
|
class C;
|
||
|
|
int x = 10;
|
||
|
|
endclass
|
||
|
|
|
||
|
|
class D extends C;
|
||
|
|
function new;
|
||
|
|
d_new_calls++;
|
||
|
|
endfunction
|
||
|
|
endclass
|
||
|
|
|
||
|
|
class E extends D;
|
||
|
|
int y;
|
||
|
|
function new;
|
||
|
|
y = 20;
|
||
|
|
endfunction
|
||
|
|
endclass
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
E e;
|
||
|
|
e = new;
|
||
|
|
|
||
|
|
`check(d_new_calls, 1);
|
||
|
|
`check(e.x, 10);
|
||
|
|
`check(e.y, 20);
|
||
|
|
|
||
|
|
if (!failed) begin
|
||
|
|
$display("PASSED");
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
endmodule
|