From 536f3971b81428ffa82bf429cbe2654bfa10fa7e Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 4 Oct 2002 21:29:19 +0000
Subject: [PATCH]   * readln internalerror

---
 tests/tbf/tb0124.pp | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 tests/tbf/tb0124.pp

diff --git a/tests/tbf/tb0124.pp b/tests/tbf/tb0124.pp
new file mode 100644
index 0000000000..1c63eeb24d
--- /dev/null
+++ b/tests/tbf/tb0124.pp
@@ -0,0 +1,7 @@
+{ %fail }
+
+var
+  a,b : string;
+begin
+  readln(a,' ',b);
+end.