{$e err.log.text}
PROGRAM testdcls;
             {12345678901234567890121345678901234567890}
   USES {$u-}{$u test/unitdecls} testunitdecls,
             {$u test/unitdecls1} testdcl1;

   PROCEDURE p1;

      BEGIN
      END;

   VAR
      v1: longint;

   TYPE
      t1 = longint;

   CONST
      c1 = 1;

   PROCEDURE p2;

      PROCEDURE p3;

         VAR
            v2: t1;

         TYPE
            t2 = char;

         BEGIN
         END;

      TYPE
         t3 = t1;

      PROCEDURE p4;

         BEGIN
         END;

      BEGIN
      END;

   VAR
      v3: longint;

   BEGIN
   END.

