42 lines
785 B
Coq
42 lines
785 B
Coq
|
/*
|
||
|
|
* This program tests that enumeration values work and are
|
||
|
|
* implicitly translated to integer values.
|
||
|
|
*/
|
||
|
|
module main;
|
||
|
|
|
||
|
|
enum { RED, ORANGE, YELLOW, GREEN, BLUE, VIOLET,
|
||
|
|
BLACK = 10, WHITE = 'd11
|
||
|
|
} color1;
|
||
|
|
|
||
|
|
int var1;
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
color1 = RED;
|
||
|
|
var1 = RED;
|
||
|
|
$display("color1 = %0d, var1 = %0d", color1, var1);
|
||
|
|
if (color1 !== 0) begin
|
||
|
|
$display("FAILED");
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
if (var1 !== 0) begin
|
||
|
|
$display("FAILED");
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
color1 = GREEN;
|
||
|
|
var1 = GREEN;
|
||
|
|
$display("color1 = %0d, var1 = %0d", color1, var1);
|
||
|
|
if (color1 !== 3) begin
|
||
|
|
$display("FAILED");
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
if (var1 !== 3) begin
|
||
|
|
$display("FAILED");
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
$display("PASSED");
|
||
|
|
end
|
||
|
|
|
||
|
|
endmodule // main
|