1 ! Program to test the default initialisation of enumerators
7 enumerator
:: red
, yellow
, blue
12 enumerator
:: a
, b
, c
= 10
17 if (red
/= 0 ) call abort
18 if (yellow
/= 1) call abort
19 if (blue
/= 2) call abort
20 if (green
/= 3) call abort
22 if (a
/= 0 ) call abort
23 if (b
/= 1) call abort
24 if (c
/= 10) call abort
25 if (d
/= 11) call abort