2018-08-25 16:36:31 +02:00
|
|
|
// DESCRIPTION: Verilator: Verilog Test module
|
|
|
|
|
//
|
2020-03-21 16:24:24 +01:00
|
|
|
// This file ONLY is placed under the Creative Commons Public Domain, for
|
|
|
|
|
// any use, without warranty, 2018 by Wilson Snyder.
|
|
|
|
|
// SPDX-License-Identifier: CC0-1.0
|
2018-08-25 16:36:31 +02:00
|
|
|
|
|
|
|
|
module t;
|
|
|
|
|
parameter int SIZES [3:0] = '{1,2,3,4};
|
|
|
|
|
typedef int calc_sums_t [3:0];
|
|
|
|
|
|
2023-01-05 23:42:05 +01:00
|
|
|
function static calc_sums_t calc_sums;
|
2018-08-25 16:36:31 +02:00
|
|
|
int sum = 0;
|
|
|
|
|
for (int i=0; i<4; i++) begin
|
|
|
|
|
sum = sum + SIZES[i];
|
2019-11-10 00:31:24 +01:00
|
|
|
calc_sums[i] = sum;
|
|
|
|
|
//TODO: calc_sums[i][31:0] = sum;
|
2018-08-25 16:36:31 +02:00
|
|
|
end
|
|
|
|
|
endfunction
|
|
|
|
|
|
|
|
|
|
parameter int SUMS[3:0] = calc_sums();
|
2023-01-23 14:35:10 +01:00
|
|
|
parameter int SUMS1[3:0] = calc_sums();
|
2018-08-25 16:36:31 +02:00
|
|
|
|
|
|
|
|
initial begin
|
|
|
|
|
if (SUMS[0] != 4) $stop;
|
|
|
|
|
if (SUMS[1] != 4+3) $stop;
|
|
|
|
|
if (SUMS[2] != 4+3+2) $stop;
|
|
|
|
|
if (SUMS[3] != 4+3+2+1) $stop;
|
2023-10-20 01:26:36 +02:00
|
|
|
// According to IEEE 1800-2017 13.4.3
|
2023-01-23 14:35:10 +01:00
|
|
|
// execution at elaboration has no effect on the initial values
|
|
|
|
|
// of the variables used either at simulation time or among
|
|
|
|
|
// multiple invocations of a function at elaboration time
|
|
|
|
|
if (SUMS1 != SUMS) $stop;
|
2018-08-25 16:36:31 +02:00
|
|
|
$write("*-* All Finished *-*\n");
|
|
|
|
|
$finish;
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
endmodule
|