53 lines
960 B
Coq
53 lines
960 B
Coq
|
int num1 = 101; string str1 = "unit1";
|
||
|
|
int num2 = 102; string str2 = "unit1";
|
||
|
|
int num3 = 103; string str3 = "unit1";
|
||
|
|
|
||
|
|
class c1;
|
||
|
|
|
||
|
|
int num2 = 100; string str2 = "c1";
|
||
|
|
|
||
|
|
task display;
|
||
|
|
begin
|
||
|
|
$display("%d from %s", num1, str1);
|
||
|
|
$display("%d from %s", num2, str2);
|
||
|
|
end
|
||
|
|
endtask
|
||
|
|
|
||
|
|
endclass
|
||
|
|
|
||
|
|
|
||
|
|
module m1();
|
||
|
|
|
||
|
|
int num2 = 112; string str2 = "m1";
|
||
|
|
|
||
|
|
c1 obj;
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
#1;
|
||
|
|
obj = new;
|
||
|
|
obj.display;
|
||
|
|
$display("%d from %s", num1, str1);
|
||
|
|
$display("%d from %s", num2, str2);
|
||
|
|
$display("%d from %s", num3, str3);
|
||
|
|
$display("%d from %s", m2.num4, m2.str4);
|
||
|
|
end
|
||
|
|
|
||
|
|
/* This should not change the result, but Icarus ignores the order in
|
||
|
|
which variables are declared and used.
|
||
|
|
int num3 = 113; string str3 = "m1";
|
||
|
|
*/
|
||
|
|
|
||
|
|
endmodule
|
||
|
|
|
||
|
|
|
||
|
|
module m2();
|
||
|
|
|
||
|
|
int num1 = 121; string str1 = "m2";
|
||
|
|
int num2 = 122; string str2 = "m2";
|
||
|
|
int num3 = 123; string str3 = "m2";
|
||
|
|
int num4 = 124; string str4 = "m2";
|
||
|
|
|
||
|
|
m1 m1inst();
|
||
|
|
|
||
|
|
endmodule
|