From 7fa32c68ae9c4f9c1a4a3fe372ee16199362ade9 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 25 Sep 2001 16:20:42 +0000
Subject: [PATCH]  Test for delphi comment in last line

---
 tests/webtbs/tw1617.pp | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 tests/webtbs/tw1617.pp

diff --git a/tests/webtbs/tw1617.pp b/tests/webtbs/tw1617.pp
new file mode 100644
index 0000000000..f9a832c55f
--- /dev/null
+++ b/tests/webtbs/tw1617.pp
@@ -0,0 +1,6 @@
+{ taken from bug report 1617 }
+{ Accept the last line is a delphi style comment }
+
+begin
+end.
+//dddd error: unexpected end of file (this is the last line)
\ No newline at end of file