fpc/tests/webtbs/tw15088.pp
2009-11-14 23:54:10 +00:00

15 lines
246 B
ObjectPascal

{ %norun }
{$mode delphi}
type
TExceptionMask = (emInvalid, emDenormalized, emZeroDivide,
emOverflow, emUnderflow, emPrecision);
TExceptionMasks = set of TExceptionMask;
var
s: TExceptionMasks;
begin
s:=[];
writeln(byte(s));
end.