testpackedobject.out

格式化源码的最新板

unit TestPackedObject;

{ AFS
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility
 This test is in its own file
 since it does not compile in Delphi 2007
 but apparently does in some earlier verions

 test the "packed" modifier on the TurboPascal legacy "object" keyword
 }

interface

type

  TPackedObject = packed object

  end;


implementation

end.