1integer COUNT = 0; 2reg x[1:0]; 3 4always @(posedge clock.val) begin 5 COUNT <= COUNT + 1; 6 case(COUNT) 7 0: x[0] <= 0; 8 1: $write(x[0]); // Previous write suceeds, prints 0 9 2: x[1000] <= 1; 10 3: $write(x[0]); // Previous write evaporates, prints 0 11 4: $write(x[1]); // Previous write evaporates, prints 0 12 5: $finish; 13 endcase 14end 15 16