浏览代码

+ Added bug #118

michael 27 年之前
父节点
当前提交
5ca33b3ee6
共有 2 个文件被更改,包括 13 次插入0 次删除
  1. 11 0
      bugs/bug0118.pp
  2. 2 0
      bugs/readme.txt

+ 11 - 0
bugs/bug0118.pp

@@ -0,0 +1,11 @@
+program Test1;
+
+  type
+    ExampleProc = procedure;
+
+  var
+    Eg: ExampleProc;
+
+  begin
+    Eg := nil;  { This produces a compiler error }
+  end.

+ 2 - 0
bugs/readme.txt

@@ -163,3 +163,5 @@ bug0111.pp   blockread(typedfile,...) is not allowed in TP7
 bug0115.pp   missing writeln for comp data type
 bug0117.pp   internalerror 17 (and why is there an automatic float 
               conversion?)
+bug0118.pp   Procedural vars cannot be assigned nil ?
+