mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 03:59:26 +02:00
6555f37cff
operator for a non-variant type (was already intended that way,
but checks didn't work) (mantis #7070) + tests
* some tab->spaces in defcmp.pas
git-svn-id: trunk@7359 -
19 lines
175 B
ObjectPascal
19 lines
175 B
ObjectPascal
{ %fail }
|
|
|
|
program varistr;
|
|
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$h+}
|
|
{$endif}
|
|
|
|
var
|
|
str: string;
|
|
begin
|
|
str := 'something';
|
|
|
|
if not str = 'hello' then
|
|
writeln('test')
|
|
end.
|
|
|