Add regression tests for package import reference order

Check separately that explicit and wildcard package imports only affect
following references. Use outer-scope declarations and package declarations
with the same names so references before and after each import resolve
differently.

Also cover implicit named port connections and repeated explicit imports.

Signed-off-by: Lars-Peter Clausen <lars@metafoo.de>
This commit is contained in:
Lars-Peter Clausen 2026-07-25 23:09:15 -07:00
parent 3679d25e4b
commit b8b6e225fc
7 changed files with 132 additions and 0 deletions

View File

@ -0,0 +1,40 @@
// Check package import ordering for implicit named port connections.
package p;
integer value = 2;
endpackage
module child(input integer value = 1, output wire [31:0] result);
assign result = value;
endmodule
module test;
wire [31:0] result;
child i_child(.result(result), .*);
import p::value;
reg failed;
`define check(val, exp) \
if (val !== exp) begin \
$display("FAILED(%0d). '%s' expected %b, got %b", `__LINE__, \
`"val`", exp, val); \
failed = 1'b1; \
end
initial begin
failed = 1'b0;
#1;
`check(result, 1);
if (!failed) begin
$display("PASSED");
end
end
endmodule

View File

@ -0,0 +1,36 @@
// Check that an explicit package import only affects following references.
package p;
parameter value = 2;
endpackage
parameter value = 1;
module test;
localparam value_before = value;
import p::value;
localparam value_after = value;
import p::value;
reg failed;
`define check(val, exp) \
if (val !== exp) begin \
$display("FAILED(%0d). '%s' expected %b, got %b", `__LINE__, \
`"val`", exp, val); \
failed = 1'b1; \
end
initial begin
failed = 1'b0;
`check(value_before, 1);
`check(value_after, 2);
if (!failed) begin
$display("PASSED");
end
end
endmodule

View File

@ -0,0 +1,35 @@
// Check that a wildcard package import only affects following references.
package p;
parameter value = 2;
endpackage
parameter value = 1;
module test;
localparam value_before = value;
import p::*;
localparam value_after = value;
reg failed;
`define check(val, exp) \
if (val !== exp) begin \
$display("FAILED(%0d). '%s' expected %b, got %b", `__LINE__, \
`"val`", exp, val); \
failed = 1'b1; \
end
initial begin
failed = 1'b0;
`check(value_before, 1);
`check(value_after, 2);
if (!failed) begin
$display("PASSED");
end
end
endmodule

View File

@ -399,7 +399,10 @@ sv_module_port3 vvp_tests/sv_module_port3.json
sv_module_port4 vvp_tests/sv_module_port4.json
sv_net_array_decl_assign vvp_tests/sv_net_array_decl_assign.json
sv_net_decl_assign vvp_tests/sv_net_decl_assign.json
sv_package_import_order_dotstar vvp_tests/sv_package_import_order_dotstar.json
sv_package_import_order_explicit vvp_tests/sv_package_import_order_explicit.json
sv_package_import_order_typedef vvp_tests/sv_package_import_order_typedef.json
sv_package_import_order_wildcard vvp_tests/sv_package_import_order_wildcard.json
sv_package_lifetime vvp_tests/sv_package_lifetime.json
sv_package_lifetime_fail vvp_tests/sv_package_lifetime_fail.json
parameter_omit1 vvp_tests/parameter_omit1.json

View File

@ -0,0 +1,8 @@
{
"type" : "normal",
"source" : "sv_package_import_order_dotstar.v",
"iverilog-args" : [ "-g2005-sv" ],
"vlog95" : {
"iverilog-args" : [ "-pallowsigned=1" ]
}
}

View File

@ -0,0 +1,5 @@
{
"type" : "normal",
"source" : "sv_package_import_order_explicit.v",
"iverilog-args" : [ "-g2005-sv" ]
}

View File

@ -0,0 +1,5 @@
{
"type" : "normal",
"source" : "sv_package_import_order_wildcard.v",
"iverilog-args" : [ "-g2005-sv" ]
}