Browse Source

+ Added bug #118

michael 27 years ago
parent
commit
5ca33b3ee6
2 changed files with 13 additions and 0 deletions
  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 ?
+