UNIT testdcl1;

   INTERFACE

      TYPE
         li = longint;

      CONST
         con = sqr(ord(chr(26 DIV 2)));

      PROCEDURE ext;

   IMPLEMENTATION

      PROCEDURE ext; External;

      TYPE
         humbug = integer;

      VAR
         bah: humbug;
END.

