mirror of
https://github.com/steveicarus/iverilog.git
synced 2026-08-29 01:03:29 +02:00
Stephen Williams
cea237b407
By adding ivtest to the iverilog source tree, it is easier to keep the regression test synchronized with the source that is being tested. This should be especially helpful for PRs that add a new feature, and have a matching ivtest PR with the regression test for that feature.
156 lines
5.4 KiB
Verilog
156 lines
5.4 KiB
Verilog
// Check assignment operations in constant functions.
|
|
module constfunc7();
|
|
|
|
function real i_to_r(input signed [3:0] value);
|
|
i_to_r = value + 0.5;
|
|
endfunction
|
|
|
|
function signed [3:0] r_to_i(input real value);
|
|
r_to_i = value;
|
|
endfunction
|
|
|
|
function real u_to_r(input [3:0] value);
|
|
u_to_r = value + 0.5;
|
|
endfunction
|
|
|
|
function [3:0] r_to_u(input real value);
|
|
r_to_u = value;
|
|
endfunction
|
|
|
|
function [3:0] i_to_u(input signed [3:0] value);
|
|
i_to_u = value;
|
|
endfunction
|
|
|
|
function signed [3:0] u_to_i(input [3:0] value);
|
|
u_to_i = value;
|
|
endfunction
|
|
|
|
function [5:0] si_to_lu(input signed [3:0] value);
|
|
si_to_lu = value;
|
|
endfunction
|
|
|
|
function signed [5:0] su_to_li(input [3:0] value);
|
|
su_to_li = value;
|
|
endfunction
|
|
|
|
function [3:0] li_to_su(input signed [5:0] value);
|
|
li_to_su = value;
|
|
endfunction
|
|
|
|
function signed [3:0] lu_to_si(input [5:0] value);
|
|
lu_to_si = value;
|
|
endfunction
|
|
|
|
localparam i_to_r_res1 = i_to_r(-9);
|
|
localparam i_to_r_res2 = i_to_r(-8);
|
|
localparam i_to_r_res3 = i_to_r( 7);
|
|
localparam i_to_r_res4 = i_to_r( 8);
|
|
|
|
localparam r_to_i_res1 = r_to_i(-8.5);
|
|
localparam r_to_i_res2 = r_to_i(-7.5);
|
|
localparam r_to_i_res3 = r_to_i( 6.5);
|
|
localparam r_to_i_res4 = r_to_i( 7.5);
|
|
|
|
localparam u_to_r_res1 = u_to_r(-1);
|
|
localparam u_to_r_res2 = u_to_r( 1);
|
|
localparam u_to_r_res3 = u_to_r(15);
|
|
localparam u_to_r_res4 = u_to_r(17);
|
|
|
|
localparam r_to_u_res1 = r_to_u(-0.5);
|
|
localparam r_to_u_res2 = r_to_u( 0.5);
|
|
localparam r_to_u_res3 = r_to_u(14.5);
|
|
localparam r_to_u_res4 = r_to_u(16.5);
|
|
|
|
localparam i_to_u_res1 = i_to_u(-9);
|
|
localparam i_to_u_res2 = i_to_u(-8);
|
|
localparam i_to_u_res3 = i_to_u( 7);
|
|
localparam i_to_u_res4 = i_to_u( 8);
|
|
|
|
localparam u_to_i_res1 = u_to_i(-1);
|
|
localparam u_to_i_res2 = u_to_i( 1);
|
|
localparam u_to_i_res3 = u_to_i(15);
|
|
localparam u_to_i_res4 = u_to_i(17);
|
|
|
|
localparam si_to_lu_res1 = si_to_lu(-9);
|
|
localparam si_to_lu_res2 = si_to_lu(-8);
|
|
localparam si_to_lu_res3 = si_to_lu( 7);
|
|
localparam si_to_lu_res4 = si_to_lu( 8);
|
|
|
|
localparam su_to_li_res1 = su_to_li(-1);
|
|
localparam su_to_li_res2 = su_to_li( 1);
|
|
localparam su_to_li_res3 = su_to_li(15);
|
|
localparam su_to_li_res4 = su_to_li(17);
|
|
|
|
localparam li_to_su_res1 = li_to_su(-9);
|
|
localparam li_to_su_res2 = li_to_su(-8);
|
|
localparam li_to_su_res3 = li_to_su( 7);
|
|
localparam li_to_su_res4 = li_to_su( 8);
|
|
|
|
localparam lu_to_si_res1 = lu_to_si(-1);
|
|
localparam lu_to_si_res2 = lu_to_si( 1);
|
|
localparam lu_to_si_res3 = lu_to_si(15);
|
|
localparam lu_to_si_res4 = lu_to_si(17);
|
|
|
|
reg failed;
|
|
|
|
initial begin
|
|
failed = 0;
|
|
|
|
$display("%0g", i_to_r_res1); if (i_to_r_res1 != 7.5) failed = 1;
|
|
$display("%0g", i_to_r_res2); if (i_to_r_res2 != -7.5) failed = 1;
|
|
$display("%0g", i_to_r_res3); if (i_to_r_res3 != 7.5) failed = 1;
|
|
$display("%0g", i_to_r_res4); if (i_to_r_res4 != -7.5) failed = 1;
|
|
$display("");
|
|
$display("%0d", r_to_i_res1); if (r_to_i_res1 !== 7) failed = 1;
|
|
$display("%0d", r_to_i_res2); if (r_to_i_res2 !== -8) failed = 1;
|
|
$display("%0d", r_to_i_res3); if (r_to_i_res3 !== 7) failed = 1;
|
|
$display("%0d", r_to_i_res4); if (r_to_i_res4 !== -8) failed = 1;
|
|
$display("");
|
|
$display("%0g", u_to_r_res1); if (u_to_r_res1 != 15.5) failed = 1;
|
|
$display("%0g", u_to_r_res2); if (u_to_r_res2 != 1.5) failed = 1;
|
|
$display("%0g", u_to_r_res3); if (u_to_r_res3 != 15.5) failed = 1;
|
|
$display("%0g", u_to_r_res4); if (u_to_r_res4 != 1.5) failed = 1;
|
|
$display("");
|
|
$display("%0d", r_to_u_res1); if (r_to_u_res1 !== 15) failed = 1;
|
|
$display("%0d", r_to_u_res2); if (r_to_u_res2 !== 1) failed = 1;
|
|
$display("%0d", r_to_u_res3); if (r_to_u_res3 !== 15) failed = 1;
|
|
$display("%0d", r_to_u_res4); if (r_to_u_res4 !== 1) failed = 1;
|
|
$display("");
|
|
$display("%0d", i_to_u_res1); if (i_to_u_res1 !== 7) failed = 1;
|
|
$display("%0d", i_to_u_res2); if (i_to_u_res2 !== 8) failed = 1;
|
|
$display("%0d", i_to_u_res3); if (i_to_u_res3 !== 7) failed = 1;
|
|
$display("%0d", i_to_u_res4); if (i_to_u_res4 !== 8) failed = 1;
|
|
$display("");
|
|
$display("%0d", u_to_i_res1); if (u_to_i_res1 !== -1) failed = 1;
|
|
$display("%0d", u_to_i_res2); if (u_to_i_res2 !== 1) failed = 1;
|
|
$display("%0d", u_to_i_res3); if (u_to_i_res3 !== -1) failed = 1;
|
|
$display("%0d", u_to_i_res4); if (u_to_i_res4 !== 1) failed = 1;
|
|
$display("");
|
|
$display("%0d", si_to_lu_res1); if (si_to_lu_res1 !== 7) failed = 1;
|
|
$display("%0d", si_to_lu_res2); if (si_to_lu_res2 !== 56) failed = 1;
|
|
$display("%0d", si_to_lu_res3); if (si_to_lu_res3 !== 7) failed = 1;
|
|
$display("%0d", si_to_lu_res4); if (si_to_lu_res4 !== 56) failed = 1;
|
|
$display("");
|
|
$display("%0d", su_to_li_res1); if (su_to_li_res1 !== 15) failed = 1;
|
|
$display("%0d", su_to_li_res2); if (su_to_li_res2 !== 1) failed = 1;
|
|
$display("%0d", su_to_li_res3); if (su_to_li_res3 !== 15) failed = 1;
|
|
$display("%0d", su_to_li_res4); if (su_to_li_res4 !== 1) failed = 1;
|
|
$display("");
|
|
$display("%0d", li_to_su_res1); if (li_to_su_res1 !== 7) failed = 1;
|
|
$display("%0d", li_to_su_res2); if (li_to_su_res2 !== 8) failed = 1;
|
|
$display("%0d", li_to_su_res3); if (li_to_su_res3 !== 7) failed = 1;
|
|
$display("%0d", li_to_su_res4); if (li_to_su_res4 !== 8) failed = 1;
|
|
$display("");
|
|
$display("%0d", lu_to_si_res1); if (lu_to_si_res1 !== -1) failed = 1;
|
|
$display("%0d", lu_to_si_res2); if (lu_to_si_res2 !== 1) failed = 1;
|
|
$display("%0d", lu_to_si_res3); if (lu_to_si_res3 !== -1) failed = 1;
|
|
$display("%0d", lu_to_si_res4); if (lu_to_si_res4 !== 1) failed = 1;
|
|
$display("");
|
|
if (failed)
|
|
$display("FAILED");
|
|
else
|
|
$display("PASSED");
|
|
end
|
|
|
|
endmodule
|