fpc/tests/tbs/tb0361.pp
2001-06-04 11:49:57 +00:00

9 lines
84 B
ObjectPascal

type
e=(one,two,three);
var
a : array[0..cardinal(two)+1] of byte;
begin
end.