tests/test/toperator90.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{ %FAIL }

program toperator90;

{$mode objfpc}{$H+}

{ overloading the explicit assignment is NOT allowed }

operator Explicit (aArg: LongInt): Boolean;
begin
  Result := aArg <> 0;
end;

begin

end.