pascalabcnet/TestSuite/where7.pas

type
  t0=record end;
  
  t1<T1>=class
  where T1: record;
  a: T1;
  end;
  
  t2<T>=class(t1<T>) where T: record; end;

begin
  var a := new t2<t0>;
end.
-												fix #1063

											
										
										
											2018-09-09 20:10:15 +03:00
+								type
 								  t0=record end;
 								  t1<T1>=class
 								  where T1: record;
 								  a: T1;
 								  end;
-												fix #2253

ABCPascal.cs
ABCPascalYacc.cs вернул на место

											
										
										
											2020-06-18 23:17:13 +03:00
+								  t2<T>=class(t1<T>) where T: record; end;
-												fix #1063

											
										
										
											2018-09-09 20:10:15 +03:00
 								begin
 								  var a := new t2<t0>;
 								end.