From 5ca33b3ee6282fbedfbc50e58872b04953197abf Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 26 Mar 1998 10:18:05 +0000
Subject: [PATCH] + Added bug #118

---
 bugs/bug0118.pp | 11 +++++++++++
 bugs/readme.txt |  2 ++
 2 files changed, 13 insertions(+)
 create mode 100644 bugs/bug0118.pp

diff --git a/bugs/bug0118.pp b/bugs/bug0118.pp
new file mode 100644
index 0000000000..342eb8128e
--- /dev/null
+++ 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.
diff --git a/bugs/readme.txt b/bugs/readme.txt
index 28ad9c2d94..2e12f03987 100644
--- 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 ?
+ 
\ No newline at end of file