From dbbb91705f606be92e0cc9daeaefeaeb290ad643 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 23 Sep 2022 21:55:50 +0200
Subject: [PATCH]   * improved fix for #39912

---
 compiler/scanner.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index aed1c30aa1..d29488b277 100644
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@@ -3717,7 +3717,7 @@ type
               { status }
                 Message1(scan_t_back_in,inputfile.name);
               { end of include file is like a line break which ends e.g. also // style comments }
-                if not(wasmacro) then
+                if not(wasmacro) and (current_commentstyle=comment_delphi) then
                   begin
                     c:=#10;
                   { ... but we have to decrease the line number first because it is increased due to this