From c122e16bebcaa76a8e1740d7404c1eaf56082a9f Mon Sep 17 00:00:00 2001
From: Sven/Sarah Barth <pascaldragon@gmail.com>
Date: Fri, 29 Jul 2022 17:34:55 +0200
Subject: [PATCH] * fix #39849: it's an error when the file (or string)
 parameter of a Read*/Write* is followed by a ":" + added test

---
 compiler/ninl.pas       |  9 +++++++++
 tests/webtbf/tw39849.pp | 14 ++++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 tests/webtbf/tw39849.pp

diff --git a/compiler/ninl.pas b/compiler/ninl.pas
index a44bb76e09..7fd2acc19d 100644
--- a/compiler/ninl.pas
+++ b/compiler/ninl.pas
@@ -1329,6 +1329,15 @@ implementation
               filepara := nil;
           end;
 
+        if assigned(filepara) and
+            assigned(filepara.right) and
+            (cpf_is_colon_para in tcallparanode(filepara.right).callparaflags) then
+          begin
+            CGMessagePos(filepara.fileinfo,parser_e_illegal_colon_qualifier);
+            { for recovery we can simply continue, because the compiler will
+              simply treat the next parameters as normal parameters }
+          end;
+
         { create a blocknode in which the successive write/read statements will be  }
         { put, since they belong together. Also create a dummy statement already to }
         { make inserting of additional statements easier                            }
diff --git a/tests/webtbf/tw39849.pp b/tests/webtbf/tw39849.pp
new file mode 100644
index 0000000000..017c59561e
--- /dev/null
+++ b/tests/webtbf/tw39849.pp
@@ -0,0 +1,14 @@
+{ %FAIL }
+
+PROGRAM tw39849;
+   {$APPTYPE CONSOLE}
+VAR
+   F: TEXT;
+BEGIN
+   ASSIGN(F, 'doublepoint.txt');
+   REWRITE(F);
+   WRITELN(F, 'Hello');   { ',' is legal - compiler just do its job }
+   WRITELN(F: 'Hello');   { ':' is not legal - compiler should emit an error, but 3.2.2 fail to }
+   CLOSE(F);
+END.
+