littletest46.out

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

unit LittleTest46;

interface

{ AFS 20 September 2003

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

{ some pointer types }
type
  PInteger = ^integer;
  P_Char   = ^char;

  PPtr  = ^Pointer;
  PPPTr = ^PPtr;
  PFile = ^file;

  TFoo = (fish, wibble, spon);

  PFoo = ^TFoo;

implementation

end.