verilator/test_regress/t/t_param_pattern_init_scope.v

// DESCRIPTION: Verilator: Verilog Test module
//
// This file ONLY is placed under the Creative Commons Public Domain.
// SPDX-FileCopyrightText: 2010 Wilson Snyder
// SPDX-License-Identifier: CC0-1.0

// verilog_format: off
`define stop $stop
`define checkh(gotv, expv) do if ((gotv) !== (expv)) begin $write("%%Error: %s:%0d:  got='h%x exp='h%x\n", `__FILE__,`__LINE__, (gotv), (expv)); `stop; end while(0);
// verilog_format: on

package some_pkg;
  localparam FOO = 5;
  localparam BAR = 6;

  typedef enum int {QUX = 7} pkg_enum_t;
endpackage

module t (
    input clk
);

  int cyc = 0;

  logic [31:0] package_array[8];

  always_comb
    package_array = '{
        1: 32'h1111,
        some_pkg::FOO: 32'h9876,
        some_pkg::BAR: 32'h1212,
        some_pkg::QUX: 32'h5432,
        default: 0
    };

  always @(posedge clk) begin
    `checkh(package_array[0], 32'h0);
    `checkh(package_array[1], 32'h1111);
    `checkh(package_array[2], 32'h0);
    `checkh(package_array[3], 32'h0);
    `checkh(package_array[4], 32'h0);
    `checkh(package_array[5], 32'h9876);
    `checkh(package_array[6], 32'h1212);
    `checkh(package_array[7], 32'h5432);
  end

  always @(posedge clk) begin
    cyc <= cyc + 1;
    if (cyc == 2) begin
      $write("*-* All Finished *-*\n");
      $finish;
    end
  end

endmodule