mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 05:08:06 +02:00
13 lines
265 B
ObjectPascal
13 lines
265 B
ObjectPascal
{ %fail }
|
|
{$mode delphi}
|
|
program IS_Precedence;
|
|
uses
|
|
Classes;
|
|
var
|
|
O1, O2: TObject;
|
|
begin
|
|
O1 := TComponent.Create(nil);
|
|
O2 := TObject.Create;
|
|
Writeln(O1 is TComponent or O2 is TComponent); // <<< should not compile because OR has precedence before IS
|
|
end.
|