35 lines
552 B
Coq
35 lines
552 B
Coq
|
`timescale 1ns / 100ps
|
||
|
|
|
||
|
|
module main;
|
||
|
|
|
||
|
|
integer rc;
|
||
|
|
reg [7:0] x, y;
|
||
|
|
reg [23:0] z;
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
rc = $sscanf("a b cd e", "%c %c %s", x, y, z);
|
||
|
|
|
||
|
|
if (rc !== 3) begin
|
||
|
|
$display("FAILED -- rc = %d", rc);
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
if (x != 'h61) begin
|
||
|
|
$display("FAILED -- x=%h", x);
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
if (y != 'h62) begin
|
||
|
|
$display("FAILED -- y=%h", y);
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
if (z !== 24'h00_63_64) begin
|
||
|
|
$display("FAILED == z=%h", z);
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
$display("PASSED");
|
||
|
|
end
|
||
|
|
endmodule // main
|