peter преди 23 години
родител
ревизия
deb598c753
променени са 1 файла, в които са добавени 0 реда и са изтрити 10 реда
  1. 0 10
      tests/tbs/tb0425.pp

+ 0 - 10
tests/tbs/tb0425.pp

@@ -1,10 +0,0 @@
-type
-  pr=^r;
-  r=record
-    i : integer;
-  end;
-var
-  buf1 : pr;
-begin
-  if @buf1.i<>nil then;
-end.