data/full_repos/permissive/143278/ivltests/pr3477107.v
 line:30: before: "("
1: b'%Error: data/full_repos/permissive/143278/ivltests/pr3477107.v:27: Unsupported or unknown PLI call: $timeformat\n  $timeformat(-6, 3, " us", 20);\n  ^~~~~~~~~~~\n%Error: data/full_repos/permissive/143278/ivltests/pr3477107.v:29: Unsupported: fork statements\n  fork\n  ^~~~\n%Warning-STMTDLY: data/full_repos/permissive/143278/ivltests/pr3477107.v:30: Unsupported: Ignoring delay on this delayed statement.\n   #0000 check("  0.000 us");\n   ^\n                  ... Use "/* verilator lint_off STMTDLY */" and lint_on around source to disable this message.\n%Warning-STMTDLY: data/full_repos/permissive/143278/ivltests/pr3477107.v:31: Unsupported: Ignoring delay on this delayed statement.\n   #0001 check("  0.001 us");\n   ^\n%Warning-STMTDLY: data/full_repos/permissive/143278/ivltests/pr3477107.v:32: Unsupported: Ignoring delay on this delayed statement.\n   #0010 check("  0.010 us");\n   ^\n%Warning-STMTDLY: data/full_repos/permissive/143278/ivltests/pr3477107.v:33: Unsupported: Ignoring delay on this delayed statement.\n   #0011 check("  0.011 us");\n   ^\n%Warning-STMTDLY: data/full_repos/permissive/143278/ivltests/pr3477107.v:34: Unsupported: Ignoring delay on this delayed statement.\n   #0100 check("  0.100 us");\n   ^\n%Warning-STMTDLY: data/full_repos/permissive/143278/ivltests/pr3477107.v:35: Unsupported: Ignoring delay on this delayed statement.\n   #0101 check("  0.101 us");\n   ^\n%Warning-STMTDLY: data/full_repos/permissive/143278/ivltests/pr3477107.v:36: Unsupported: Ignoring delay on this delayed statement.\n   #1000 check("  1.000 us");\n   ^\n%Warning-STMTDLY: data/full_repos/permissive/143278/ivltests/pr3477107.v:37: Unsupported: Ignoring delay on this delayed statement.\n   #1001 check("  1.001 us");\n   ^\n%Error: Exiting due to 2 error(s), 8 warning(s)\n        ... See the manual and https://verilator.org for more assistance.\n'
module test;

	reg fail = 0;

	task check;
		input [10*8:1] expect;
		reg [10*8:1] s;
		begin
			$swrite(s, "Time %t", $time);
			$write("%s", s);
			if (s === expect)
				$display("");
			else
			begin
				$display(" != %s", expect);
				fail = 1;
			end
		end
	endtask


	initial
	begin
		$display("Test display formatting of time values");
		$timeformat(-6, 3, " us", 20);

		fork
			#0000 check("  0.000 us");
			#0001 check("  0.001 us");
			#0010 check("  0.010 us");
			#0011 check("  0.011 us");
			#0100 check("  0.100 us");
			#0101 check("  0.101 us");
			#1000 check("  1.000 us");
			#1001 check("  1.001 us");
		join

		$display("%s", fail? "FAILED" : "PASSED");
	end

endmodule
module test;


	reg fail = 0;

	task check;
		input [10*8:1] expect;
		reg [10*8:1] s;
		begin
			$swrite(s, "Time %t", $time);
			$write("%s", s);
			if (s === expect)
				$display("");
			else
			begin
				$display(" != %s", expect);
				fail = 1;
			end
		end
	endtask


	initial
	begin
		$display("Test display formatting of time values");
		$timeformat(-6, 3, " us", 20);

		fork
			#0000 check("  0.000 us");
			#0001 check("  0.001 us");
			#0010 check("  0.010 us");
			#0011 check("  0.011 us");
			#0100 check("  0.100 us");
			#0101 check("  0.101 us");
			#1000 check("  1.000 us");
			#1001 check("  1.001 us");
		join

		$display("%s", fail? "FAILED" : "PASSED");
	end

endmodule