freepascal.compiler/tests/webtbf/tw8780a.pp

{ %fail }
var c,c1,c2 : char;
begin
  c:=c1 or c2; // no error
end.