mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
eb9b4fb71f
+ added test * adjusted test tw9673 which should have never worked as is (what if TList would have been "of T" instead of "of byte"?) git-svn-id: trunk@36468 -
24 lines
481 B
ObjectPascal
24 lines
481 B
ObjectPascal
{ %FAIL }
|
|
|
|
program tw31973;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Classes, SysUtils
|
|
{ you can add units after this },
|
|
gutil, gset;
|
|
|
|
type
|
|
TIntegerSetCompare = specialize TLess<Integer>;
|
|
TIntegerSet = specialize TSet<Integer, TIntegerSetCompare>;
|
|
|
|
var
|
|
ISet: TIntegerSet;
|
|
I: Integer;
|
|
Iterator: TSet.TIterator; //should be TIntegerSet.TIterator;
|
|
begin
|
|
ISet := TIntegerSet.Create();
|
|
Iterator := ISet.Find(42); //error2014052306.lpr(20,12) Error: Internal error 2014052306
|
|
end.
|