+ Added bug #118

2025-04-05 11:18:18 +02:00 · 1998-03-26 10:18:05 +00:00 · 1998-03-26 10:18:05 +00:00 · 5ca33b3ee6
commit 5ca33b3ee6
parent 4e9811301e
2 changed files with 13 additions and 0 deletions
--- a/bugs/bug0118.pp
+++ b/bugs/bug0118.pp
@ -0,0 +1,11 @@
+program Test1;
+
+  type
+    ExampleProc = procedure;
+
+  var
+    Eg: ExampleProc;
+
+  begin
+    Eg := nil;  { This produces a compiler error }
+  end.
--- a/bugs/readme.txt
+++ b/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 ?
+