39 lines
595 B
Coq
39 lines
595 B
Coq
|
// Check that nested object typed class properties can be used as lvalues.
|
||
|
|
|
||
|
|
module test;
|
||
|
|
|
||
|
|
bit failed = 1'b0;
|
||
|
|
|
||
|
|
`define check(val, exp) do \
|
||
|
|
if (val !== exp) begin \
|
||
|
|
$display("FAILED(%0d). '%s' expected %0d, got %0d", `__LINE__, `"val`", exp, val); \
|
||
|
|
failed = 1'b1; \
|
||
|
|
end \
|
||
|
|
while(0)
|
||
|
|
|
||
|
|
class C;
|
||
|
|
C c;
|
||
|
|
integer i;
|
||
|
|
endclass
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
C c1, c2, c3;
|
||
|
|
|
||
|
|
c1 = new;
|
||
|
|
c1.c = new;
|
||
|
|
c2 = c1.c;
|
||
|
|
|
||
|
|
c3 = new;
|
||
|
|
c3.i = 10;
|
||
|
|
c1.c.c = c3;
|
||
|
|
c3 = c2.c;
|
||
|
|
|
||
|
|
`check(c3.i, 10);
|
||
|
|
|
||
|
|
if (!failed) begin
|
||
|
|
$display("PASSED");
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
endmodule
|