tests/Test18A.obn

   1 MODULE Test18A;
   2
   3 VAR
   4   x : PROCEDURE(i : INTEGER);
   5
   6 PROCEDURE X(a : INTEGER);
   7 END X;
   8
   9 BEGIN
  10   x := X;
  11 END Test18A.
  12
  13 Проверка процедурного типа. Тест должен проходить.