Subversion Repositories pairing

`timescale 1ns / 1ps
 
module test_f32m_mult;
 
    // Inputs
    reg reset;
    reg clk;
    reg [387:0] a,b;
 
    // Outputs
    wire [387:0] c;
    wire done;
 
    // Instantiate the Unit Under Test (UUT)
    f32m_mult uut (
        .reset(reset), 
        .clk(clk), 
        .a(a), 
        .b(b), 
        .c(c), 
        .done(done)
    );
 
    initial begin
        // Initialize Inputs
        reset = 0;
        clk = 0;
        a = 0;
        b = 0;
 
        // Wait 100 ns for global reset to finish
        #100;
 
        // Add stimulus here
        a={194'h2a8aa25aa245066106a40806618aa88a2946881162a864652,194'h28258889288590a464559a0854a0a269820495a6069969aa2};
        b={194'h59a0a46891951042640592a2969888012108059214504048,194'h55812555968918122622106514a25488204895614889112};
        @ (negedge clk) reset = 1;
        @ (negedge clk) reset = 0;
        @ (posedge done);
        if (c!=={194'h9594010a580186621a840406105460622891085122060a45,194'h59a1595621295a89260802a045194a96050a6202164000a9}) $display("E1");
        #100;
 
        a={194'h8864990666a959a88500249a244495aaa26a2a0194082aa1,194'h2a9481526946468065456052045865262520a4a9520a5a665};
        b={194'h116698585aa229805611194a6520151245204aa9114a89200,194'h8855225a25520a048a912141800501862189941946906540};
        @ (negedge clk) reset = 1;
        @ (negedge clk) reset = 0;
        @ (posedge done);
        if (c!=={194'h215608121442a91950aaa59514a9486258684486825840894,194'h284845aa0664918068988811691a290658228028985249a48}) $display("E2");
        #100;
 
        $finish;
    end
 
    always #5 clk = ~clk;
endmodule