module test
  #(parameter width = 8)
  (input wire             clk,
   input wire [1:0]	  addr,
   input wire [width-1:0] data[0:3],
   output reg [width-1:0] Q
   /* */);

   always @(posedge clk)
     Q <= data[addr];

endmodule // test

module main;

   localparam width = 8;

   reg clk;
   reg [1:0] addr;
   logic [width-1:0] data [0:3];

   wire [width-1:0]  Q;

   test #(.width(width)) DUT (.clk(clk), .addr(addr), .data(data), .Q(Q));

   reg [2:0]	   idx;
   initial begin
      clk = 0;
      data[0] = 0;
      data[1] = 1;
      data[2] = 2;
      data[3] = 3;
      addr = 0;

      for (idx = 0 ; idx < 4 ; idx += 1) begin
	 clk = 0;
	 #1 addr = idx[1:0];
	 #1 clk = 1;
	 #1 if (Q !== data[addr]) begin
	    $display("FAILED -- data[%0d]==%h, Q==%h", addr, data[addr], Q);
	    $finish;
	 end
      end

      $display("PASSED");
   end // initial begin

endmodule // main