littletest29.out

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

unit LittleTest29;

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

interface

type
  TKirk    = Low(integer) .. High(integer);
  TSpock   = Low(integer) .. 12;
  TRiker   = 12 .. High(integer);
  TWhorf   = 12 .. 42;
  TData    = False .. True;
  TPicard  = Low(boolean) .. High(boolean);
  TCrusher = Low(boolean) .. True;
  TUhura   = False .. High(boolean);

implementation

end.