mirror of
https://github.com/verilator/verilator.git
synced 2025-01-19 12:54:02 +00:00
Tests: Add -G test.
This commit is contained in:
parent
2b58e834ee
commit
ace35b3e81
33
test_regress/t/t_flag_parameter_hier.pl
Executable file
33
test_regress/t/t_flag_parameter_hier.pl
Executable file
@ -0,0 +1,33 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); die; }
|
||||||
|
# DESCRIPTION: Verilator: Verilog Test driver/expect definition
|
||||||
|
#
|
||||||
|
# Copyright 2008 by Wilson Snyder. This program is free software; you
|
||||||
|
# can redistribute it and/or modify it under the terms of either the GNU
|
||||||
|
# Lesser General Public License Version 3 or the Perl Artistic License
|
||||||
|
# Version 2.0.
|
||||||
|
# SPDX-License-Identifier: LGPL-3.0-only OR Artistic-2.0
|
||||||
|
|
||||||
|
scenarios(simulator => 1);
|
||||||
|
|
||||||
|
compile(
|
||||||
|
# For Verilator, all PARAMs at all levels are overwridden
|
||||||
|
# Error if parameter not found
|
||||||
|
#verilator_flags2 => ['-GPARAM=10 -Gtop.t.x.HIER=20'], # HIER would error
|
||||||
|
verilator_flags2 => ['-GPARAM=10'],
|
||||||
|
# For NC, always implies a hierarchy, only HIER will be set
|
||||||
|
# Warns if sets nothing
|
||||||
|
nc_flags2 => ['+defparam+PARAM=10 +defparam+top.t.x.HIER=20'],
|
||||||
|
# For VCS, all PARAMs at all levels are overridden. Hierarchy not allowed.
|
||||||
|
# Informational on all overrides
|
||||||
|
vcs_flags2 => ['-pvalue+PARAM=10 -px.HIER=20'],
|
||||||
|
# For icarus -P without hierarchy does nothing, only can ref into top
|
||||||
|
iv_flags2 => ['-PPARAM=10', '-Ptop.HIER=30', '-Ptop.t.x.HIER=20'],
|
||||||
|
);
|
||||||
|
|
||||||
|
execute(
|
||||||
|
check_finished => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
ok(1);
|
||||||
|
1;
|
83
test_regress/t/t_flag_parameter_hier.v
Normal file
83
test_regress/t/t_flag_parameter_hier.v
Normal file
@ -0,0 +1,83 @@
|
|||||||
|
// DESCRIPTION: Verilator: Verilog Test module
|
||||||
|
//
|
||||||
|
// This file ONLY is placed under the Creative Commons Public Domain, for
|
||||||
|
// any use, without warranty, 2016 by Wilson Snyder.
|
||||||
|
// SPDX-License-Identifier: CC0-1.0
|
||||||
|
|
||||||
|
`define check(gotv,expv) do if ((gotv) !== (expv)) begin $write("%%Error: %s:%0d: %m: Wrong parameter value\n", `__FILE__,`__LINE__); $stop; end while(0);
|
||||||
|
|
||||||
|
module t (/*AUTOARG*/
|
||||||
|
// Inputs
|
||||||
|
clk
|
||||||
|
);
|
||||||
|
input clk;
|
||||||
|
|
||||||
|
u u ();
|
||||||
|
tx x ();
|
||||||
|
|
||||||
|
parameter PARAM = 0;
|
||||||
|
parameter HIER = 0;
|
||||||
|
initial begin
|
||||||
|
$display("%m PARAM=%0d HIER=%0d", PARAM, HIER);
|
||||||
|
`ifdef IVERILOG
|
||||||
|
`check(PARAM, 0);
|
||||||
|
`elsif NC
|
||||||
|
`check(PARAM, 0);
|
||||||
|
`elsif VCS
|
||||||
|
`check(PARAM, 10);
|
||||||
|
`else
|
||||||
|
`check(PARAM, 10);
|
||||||
|
`endif
|
||||||
|
|
||||||
|
`check(HIER, 0);
|
||||||
|
end
|
||||||
|
always @ (posedge clk) begin
|
||||||
|
$write("*-* All Finished *-*\n");
|
||||||
|
$finish;
|
||||||
|
end
|
||||||
|
|
||||||
|
endmodule
|
||||||
|
|
||||||
|
module u;
|
||||||
|
ux x();
|
||||||
|
endmodule
|
||||||
|
|
||||||
|
module ux;
|
||||||
|
parameter PARAM = 0;
|
||||||
|
parameter HIER = 0;
|
||||||
|
initial begin
|
||||||
|
$display("%m PARAM=%0d HIER=%0d", PARAM, HIER);
|
||||||
|
`ifdef IVERILOG
|
||||||
|
`check(PARAM, 0);
|
||||||
|
`elsif NC
|
||||||
|
`check(PARAM, 0);
|
||||||
|
`elsif VCS
|
||||||
|
`check(PARAM, 10);
|
||||||
|
`else
|
||||||
|
`check(PARAM, 0);
|
||||||
|
`endif
|
||||||
|
`check(HIER, 0);
|
||||||
|
end
|
||||||
|
endmodule
|
||||||
|
|
||||||
|
module tx;
|
||||||
|
parameter PARAM = 0;
|
||||||
|
parameter HIER = 0;
|
||||||
|
initial begin
|
||||||
|
$display("%m PARAM=%0d HIER=%0d", PARAM, HIER);
|
||||||
|
`ifdef IVERILOG
|
||||||
|
`check(PARAM, 0);
|
||||||
|
`elsif NC
|
||||||
|
`check(PARAM, 10);
|
||||||
|
`elsif VCS
|
||||||
|
`check(PARAM, 10);
|
||||||
|
`else
|
||||||
|
`check(PARAM, 0);
|
||||||
|
`endif
|
||||||
|
`ifdef NC
|
||||||
|
`check(HIER, 20);
|
||||||
|
`else
|
||||||
|
`check(HIER, 0);
|
||||||
|
`endif
|
||||||
|
end
|
||||||
|
endmodule
|
Loading…
Reference in New Issue
Block a user