{ %FAIL } { Old file: tbf0349.pp } { } {$mode delphi} type TCl=class; const b=1; type TCL=class end; begin end.