unit LittleTest35;

{ AFS 27 March 2000
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility }

interface

implementation

procedure Foo;
begin
  asm CLD end;

end;

end.
