{ %FAIL } program tgenconstraint29; {$ifdef fpc} {$mode delphi} {$endif} uses ugenconstraints; type TTest16ITest1 = TTest16; begin end.