littletest24.out

来自「格式化源码的最新板」· OUT 代码 · 共 22 行

unit LittleTest24;

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

interface

type
  TShatner = record
    Fish:   integer;
    soy:    boolean;
    Monkey: string;
  end;

var
  Flurry: TShatner = ();

implementation

end.