{ %FAIL } program tgenconstraint28; {$ifdef fpc} {$mode delphi} {$endif} uses ugenconstraints; type TTest15TTestClass7 = TTest15; begin end.