2015-02-12 01:46:19 +01:00
// DESCRIPTION: Verilator: Verilog Test module
//
2026-01-27 02:24:34 +01:00
// This file ONLY is placed under the Creative Commons Public Domain.
// SPDX-FileCopyrightText: 2015 Iztok Jeras
2020-03-21 16:24:24 +01:00
// SPDX-License-Identifier: CC0-1.0
2015-02-12 01:46:19 +01:00
2026-03-08 23:26:40 +01:00
// verilog_format: off
2024-02-09 00:39:13 +01:00
`define stop $stop
`define checkh(gotv,expv) do if ((gotv) !== (expv)) begin $write("%%Error: %s:%0d: got='h%x exp='h%x\n", `__FILE__,`__LINE__, (gotv), (expv)); `stop; end while(0)
2026-03-08 23:26:40 +01:00
// verilog_format: on
2015-02-12 01:46:19 +01:00
2026-03-08 23:26:40 +01:00
module t ;
2015-02-12 01:46:19 +01:00
2026-03-08 23:26:40 +01:00
// signed source
logic signed [ 8 - 1 : 0 ] src ;
2015-02-12 01:46:19 +01:00
2026-03-08 23:26:40 +01:00
// destination structure
struct packed {
logic signed [ 16 - 1 : 0 ] s ;
logic unsigned [ 16 - 1 : 0 ] u ;
} dst ;
2015-02-12 01:46:19 +01:00
2026-03-08 23:26:40 +01:00
initial begin
// bug882
// verilator lint_off WIDTH
src = 8 ' sh05 ;
dst = ' { s: src , u: src } ;
`checkh ( dst . s , 16 'h0005 ) ;
`checkh ( dst . u , 16 'h0005 ) ;
2015-02-12 01:46:19 +01:00
2026-03-08 23:26:40 +01:00
src = 8 ' shf5 ;
dst = ' { s: src , u: src } ;
`checkh ( dst . s , 16 'hfff5 ) ;
`checkh ( dst . u , 16 'hfff5 ) ;
// verilator lint_on WIDTH
2015-02-12 01:46:19 +01:00
2026-03-08 23:26:40 +01:00
$write ( " *-* All Finished *-* \n " ) ;
$finish ;
end
2015-02-12 01:46:19 +01:00
endmodule