{ %FAIL }

program tb0234;
 
uses
  ub0234.ub0234;
 
var
  c: Integer;
begin
  c := Ord(ub0234.enumBAR);
end.