+ Added bug #118

This commit is contained in:
michael 1998-03-26 10:18:05 +00:00
parent 4e9811301e
commit 5ca33b3ee6
2 changed files with 13 additions and 0 deletions

11
bugs/bug0118.pp Normal file
View File

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

View File

@ -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 ?