From 92924c207511cdebb63339c25c738c857a1b9391 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 21 May 1998 19:37:52 +0000
Subject: [PATCH]   + bug #136

---
 bugs/bug0136.pp | 9 +++++++++
 bugs/readme.txt | 1 +
 2 files changed, 10 insertions(+)
 create mode 100644 bugs/bug0136.pp

diff --git a/bugs/bug0136.pp b/bugs/bug0136.pp
new file mode 100644
index 0000000000..cd4d2382ab
--- /dev/null
+++ b/bugs/bug0136.pp
@@ -0,0 +1,9 @@
+{
+  No type declaration necessary ????
+}
+procedure p(handle1,handle2);
+begin
+end;
+
+begin
+end.
diff --git a/bugs/readme.txt b/bugs/readme.txt
index d974ef39a9..0da4cc2df3 100644
--- a/bugs/readme.txt
+++ b/bugs/readme.txt
@@ -182,3 +182,4 @@ bug0131.pp   internal error 10 with highdimension arrays
 bug0132.pp   segmentation fault with type loop
 bug0133.pp   object type declaration not 100% compatibile with TP7
 bug0135.pp   Unsupported subrange type construction.
+bug0136.pp   No types necessary in the procedure header
\ No newline at end of file