tests/Test29.obn

   1 MODULE Test29;
   2
   3 PROCEDURE A(a : INTEGER);
   4   VAR
   5     x : INTEGER;
   6 END A;
   7
   8 PROCEDURE B(b : SHORTINT);
   9   PROCEDURE A(c : LONGINT);
  10     VAR
  11       y : ARRAY 3 OF INTEGER;
  12   END A;
  13 END B;
  14
  15 END Test29.
  16
  17 Объявление локальной процедуры не должно конфликтовать с глобальным.