From 672f90bf40cc6fe8d3dbb2be0402e41d7113fc00 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sun, 3 Jul 2022 10:27:04 +0200
Subject: [PATCH]  Reset col when reading new lines. Fix issue #39356

---
 packages/fcl-db/src/base/sqlscript.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/fcl-db/src/base/sqlscript.pp b/packages/fcl-db/src/base/sqlscript.pp
index 1d3fe93011..d19248fad3 100644
--- a/packages/fcl-db/src/base/sqlscript.pp
+++ b/packages/fcl-db/src/base/sqlscript.pp
@@ -509,6 +509,7 @@ begin
   FSkipStackIndex:=0;
   Faborted:=False;
   FLine:=1;
+  FCol:=1;
   DefaultDirectives;
   Repeat
     NextStatement();