{ %fail }

{$ifdef fpc}
{$mode delphi}
{$endif}

var
  a: pchar;
  b: char absolute a[5];
begin
end.