fpc/tests/webtbs/uw23204.pp

19 lines
253 B
ObjectPascal

unit uw23204;
//{$mode Delphi}{$H+} // error disappears!
{$mode objfpc}{$H+}
interface
type
// TPColor = (pc1, pc2);
TPType = (pt_0, pt_1);
TP = record
// AColor: TPColor;
AType: TPType;
end;
TPs = set of TPType;
implementation
end.