TYPE S10 = ARRAY 10 OF CHAR;

   PROCEDURE Str2Proc (a: S10);

   PROCEDURE TestStr12;
   VAR b: S10;
   BEGIN
      Str2Proc(b); (* тут мы делаем копию b на стеке через ADD ESP *)
      Str2Proc(b); (* а тут ещё раз, забыв убрать старую копию, снова через ADD ESP *)
   END TestStr12;

   PROCEDURE Str0Proc (a: ARRAY OF CHAR);

   PROCEDURE TestStr13;
   VAR b: S10;
   BEGIN
      Str0Proc(b);
      Str0Proc(b);
   END TestStr13;

   PROCEDURE Str1Proc (IN a: S10);

   PROCEDURE TestStr13;
   VAR b: S10;
   BEGIN
      Str1Proc(b);
      Str1Proc(b);
   END TestStr13;

   PROCEDURE Str1Proc (IN a: S10);

   PROCEDURE TestStr14;
   VAR b: S10;
   BEGIN
      Str1Proc(b$);
      Str1Proc(b$);
   END TestStr14;

   PROCEDURE TestStr14
      VAR @str0: ARRAY 10 OF CHAR
      VAR @str1: ARRAY 10 OF CHAR
      VAR b: S10
   BEGIN
      COMPOUND
         @str0 := b$;
         CALL Str1Proc(@str0$);
      END COMPOUND;
      COMPOUND
         @str1 := b$;
         CALL Str1Proc(@str1$);
      END COMPOUND;
   END TestStr14