浏览代码

+ 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
 bug0115.pp   missing writeln for comp data type
 bug0117.pp   internalerror 17 (and why is there an automatic float 
 bug0117.pp   internalerror 17 (and why is there an automatic float 
               conversion?)
               conversion?)
+bug0118.pp   Procedural vars cannot be assigned nil ?
+