53 lines
1.6 KiB
Coq
53 lines
1.6 KiB
Coq
|
|
||
|
|
// br_gh800 (github Issue #800)
|
||
|
|
module AssignLiterals;
|
||
|
|
initial begin
|
||
|
|
string s;
|
||
|
|
|
||
|
|
// Note that the \0 in this string literal assigned to the string
|
||
|
|
// must disappear, leaving "AB" what is actually assigned to the
|
||
|
|
// string. See IEEE Std 1800-2017: 6.16 String data type.
|
||
|
|
s = "A\0B";
|
||
|
|
$display("1. '%s' len=%1d hex=%02h%02h%02h",s,s.len(), s[0], s[1], s[2]);
|
||
|
|
if (s.len() != 2 || s != "AB" || s[0] !== 'h41 || s[1] !== 'h42) begin
|
||
|
|
$display("FAILED");
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
s = "A\015\12B";
|
||
|
|
$display("2. len=%1d hex=%02h%02h%02h%02h",s.len(), s[0], s[1], s[2], s[3]);
|
||
|
|
if (s.len() != 4 || s[0] !== 'h41 || s[1] !== 'h0d
|
||
|
|
|| s[2] !== 'h0a || s[3] !== 'h42) begin
|
||
|
|
$display("FAILED");
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
s = {"A","\015","\012","B"};
|
||
|
|
$display("3. len=%1d hex=%02h%02h%02h%02h",s.len(), s[0], s[1], s[2], s[3]);
|
||
|
|
if (s.len() != 4 || s[0] !== 'h41 || s[1] !== 'h0d
|
||
|
|
|| s[2] !== 'h0a || s[3] !== 'h42) begin
|
||
|
|
$display("FAILED");
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
s = "A\170\171B";
|
||
|
|
$display("4. '%s' len=%1d hex=%02h%02h%02h%02h",s,s.len(),
|
||
|
|
s[0], s[1], s[2], s[3]);
|
||
|
|
if (s.len() != 4 || s[0] !== 'h41 || s[1] !== 'h78 || s[2] !== 'h79
|
||
|
|
|| s[3] !== 'h42) begin
|
||
|
|
$display("FAILED");
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
s = {"A",8'o15,8'o12,"\012","B"};
|
||
|
|
$display("5. len=%1d hex=%02h%02h%02h%02h%02h",s.len(), s[0], s[1], s[2], s[3], s[4]);
|
||
|
|
if (s.len() != 5 || s[0] !== 'h41 || s[1] !== 'h0d
|
||
|
|
|| s[2] !== 'h0a || s[3] !== 'h0a || s[4] !== 'h42) begin
|
||
|
|
$display("FAILED");
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
$display("PASSED");
|
||
|
|
end
|
||
|
|
endmodule
|