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