1 ! Program to test the incremental assignment of enumerators
7 enumerator
:: red
= 4 , yellow
, blue
12 enumerator
:: sun
= -10 , mon
, tue
13 enumerator
:: wed
= 10, sat
17 if (red
/= 4 ) call abort
18 if (yellow
/= (red
+ 1)) call abort
19 if (blue
/= (yellow
+ 1)) call abort
20 if (green
/= (blue
+ 1)) call abort
23 if (sun
/= -10 ) call abort
24 if (mon
/= (sun
+ 1)) call abort
25 if (tue
/= (mon
+ 1)) call abort
26 if (wed
/= 10) call abort
27 if (sat
/= (wed
+1)) call abort