mirror of
				https://github.com/YosysHQ/yosys
				synced 2025-11-04 05:19:11 +00:00 
			
		
		
		
	This is @KrystalDelusion's suggestion in PR #5141 to verify sensible implementation of all 4 possible full_case/parallel_case combinations. (Also including two similar tests to check the Verilog frontend applies the correct attributes when given SystemVerilog priority/unique case and if statements.)
		
			
				
	
	
		
			54 lines
		
	
	
	
		
			1.1 KiB
		
	
	
	
		
			Text
		
	
	
	
	
	
			
		
		
	
	
			54 lines
		
	
	
	
		
			1.1 KiB
		
	
	
	
		
			Text
		
	
	
	
	
	
read_verilog -sv << EOF
 | 
						|
module top (input A, B, C, D, E, F, output reg W, X, Y, Z);
 | 
						|
	always_comb begin
 | 
						|
		W = F;
 | 
						|
		priority case (C)
 | 
						|
			A: W = D;
 | 
						|
			B: W = E;
 | 
						|
		endcase
 | 
						|
	end
 | 
						|
 | 
						|
	always_comb begin
 | 
						|
		X = F;
 | 
						|
		case (C)
 | 
						|
			A: X = D;
 | 
						|
			B: X = E;
 | 
						|
		endcase
 | 
						|
	end
 | 
						|
 | 
						|
	always_comb begin
 | 
						|
		Y = F;
 | 
						|
		unique case (C)
 | 
						|
			A: Y = D;
 | 
						|
			B: Y = E;
 | 
						|
		endcase
 | 
						|
	end
 | 
						|
 | 
						|
	always_comb begin
 | 
						|
		Z = F;
 | 
						|
		unique0 case (C)
 | 
						|
			A: Z = D;
 | 
						|
			B: Z = E;
 | 
						|
		endcase
 | 
						|
	end
 | 
						|
endmodule
 | 
						|
EOF
 | 
						|
prep
 | 
						|
# For the ones which use priority/unique, the F signal shouldn't be included in
 | 
						|
# the input cone of W and Y.
 | 
						|
select -set full o:W o:Y %u %ci*
 | 
						|
select -assert-none i:F @full %i
 | 
						|
select -assert-count 1 o:X %ci* i:F %i
 | 
						|
select -assert-count 1 o:Z %ci* i:F %i
 | 
						|
 | 
						|
# And for unique/unique0 there should be 1 $pmux compared to the 2 $mux
 | 
						|
# cells without.
 | 
						|
select -assert-none o:W %ci* t:$pmux %i
 | 
						|
select -assert-none o:X %ci* t:$pmux %i
 | 
						|
select -assert-count 1 o:Y %ci* t:$pmux %i
 | 
						|
select -assert-count 1 o:Z %ci* t:$pmux %i
 | 
						|
 | 
						|
select -assert-count 2 o:W %ci* t:$mux %i
 | 
						|
select -assert-count 2 o:X %ci* t:$mux %i
 | 
						|
select -assert-none o:Y %ci* t:$mux %i
 | 
						|
select -assert-none o:Z %ci* t:$mux %i
 |