{ %FAIL } program tgenconstraint33; {$ifdef fpc} {$mode delphi} {$endif} uses ugenconstraints; type TTest17TTestClass5ITest2 = TTest17; begin end.