{ %fail }

type
  trec = record
    case boolean of
      1: (b: byte);
  end;

begin
end.