@@ -0,0 +1,11 @@
+program Test1;
+
+ type
+ ExampleProc = procedure;
+ var
+ Eg: ExampleProc;
+ begin
+ Eg := nil; { This produces a compiler error }
+ end.
@@ -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 ?