type t0=record end; t1=class where T1: record; a: T1; end; t2=class(Dictionary,T>) where T: record; end; begin var a := new t2; end.