verilator/test_regress/t/t_math_shiftrs.v

// DESCRIPTION: Verilator: Verilog Test module
//
// This file ONLY is placed into the Public Domain, for any use,
// without warranty, 2004 by Wilson Snyder.

module t (/*AUTOARG*/
   // Inputs
   clk
   );

   input clk;
   integer cyc; initial cyc=1;

   reg signed [64+15:0] data;
   integer 		i;
   integer 		b;
   reg signed [64+15:0] srs;

   always @ (posedge clk) begin
      if (cyc!=0) begin
	 cyc <= cyc + 1;
	 if (cyc==2) begin
	    data <= 80'h0;
	    data[75] <= 1'b1;
	    data[10] <= 1'b1;
	 end
	 if (cyc==3) begin
	    for (i=0; i<85; i=i+1) begin
	       srs = data>>>i;
	       //$write (" %x >>> %d == %x\n",data,i,srs);
	       for (b=0; b<80; b=b+1) begin
		  if (srs[b] != (b==(75-i) || b==(10-i))) $stop;
	       end
	    end
	 end
	 if (cyc==10) begin
	    data <= 80'h0;
	    data[79] <= 1'b1;
	    data[10] <= 1'b1;
	 end
	 if (cyc==12) begin
	    for (i=0; i<85; i=i+1) begin
	       srs = data>>>i;
	       //$write (" %x >>> %d == %x\n",data,i,srs);
	       for (b=0; b<80; b=b+1) begin
		  if (srs[b] != (b>=(79-i) || b==(10-i))) $stop;
	       end
	    end
	 end
	 if (cyc==20) begin
	    $write("*-* All Finished *-*\n");
	    $finish;
	 end
      end
   end
endmodule