tests/Test18C.obn

   1 MODULE Test18C;
   2
   3 VAR
   4   x : PROCEDURE (i : LONGREAL);
   5
   6 BEGIN
   7   x := ABS;
   8 END Test18C.
   9
  10 Проверка процедурного типа. Тест должен проваливаться.