DPI / initial problems

test_regress/t/t_interface_array2.v

@@ -15,6 +15,12 @@ module modify_interface
 input logic value,
 intf.source intf_inst
 );
+
+    export "DPI-C" function set_value;
+    function void set_value(int value_in);
+        intf_inst.logic_in_intf = value_in[0];
+    endfunction
+
 assign intf_inst.logic_in_intf = value;
 endmodule
 
@@ -30,6 +36,21 @@ module t
     logic [N-1:0] data;
     assign data = {1'b0, 1'b1, 1'b0, 1'b1, 1'b0, 1'b1};
 
+    export "DPI-C" function set_data;
+    function void set_data(int data_in);
+        data = data_in[N-1:0];
+    endfunction
+
+    export "DPI-C" function set_intf_data;
+    function void set_intf_data(int data_in);
+        ifs[0].logic_in_intf = data_in[0];
+        ifs[1].logic_in_intf = data_in[1];
+        ifs[2].logic_in_intf = data_in[2];
+        ifs[3].logic_in_intf = data_in[3];
+        ifs[4].logic_in_intf = data_in[4];
+        ifs[5].logic_in_intf = data_in[5];
+    endfunction
+
     generate
         genvar i;
         for (i = 0;i < 3; i++) begin
@@ -52,13 +73,15 @@ module t
         genvar j;
         for (j = 0;j < N-1; j++) begin
             initial begin
-               if (ifs[j].logic_in_intf != data[j]) $stop;
+               if (ifs[j].logic_in_intf != data[j])
+                    $display("!!!ERROR!!! ifs[%0d].logic_in_intf (%0d) != data[%0d] (%0d)",
+                       j, ifs[j].logic_in_intf, j, data[j]);
             end
         end
     endgenerate
 
     initial begin
-       if (ifs[5].logic_in_intf != ~ifs[4].logic_in_intf) $stop;
+       if (ifs[5].logic_in_intf != ~ifs[4].logic_in_intf) $display("BAD");
        $write("*-* All Finished *-*\n");
        $finish;
     end