From 3f7bf0fd70b339a43889898efa59af4fec33ea84 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 1 Nov 2022 21:15:49 +0100
Subject: [PATCH]   * stop generation of typed array constants if the size does
 not match, resolves #39980

---
 compiler/ngtcon.pas     |  3 ++-
 tests/webtbf/tw39980.pp | 43 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 45 insertions(+), 1 deletion(-)
 create mode 100644 tests/webtbf/tw39980.pp

diff --git a/compiler/ngtcon.pas b/compiler/ngtcon.pas
index 33de135b44..1629c4c0be 100644
--- a/compiler/ngtcon.pas
+++ b/compiler/ngtcon.pas
@@ -1359,7 +1359,8 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
                 consume(_RKLAMMER);
               end;
             curoffset:=oldoffset;
-            ftcb.maybe_end_aggregate(def);
+            if ErrorCount=0 then
+              ftcb.maybe_end_aggregate(def);
           end
         { if array of char then we allow also a string }
         else if is_anychar(def.elementdef) then
diff --git a/tests/webtbf/tw39980.pp b/tests/webtbf/tw39980.pp
new file mode 100644
index 0000000000..68f2231138
--- /dev/null
+++ b/tests/webtbf/tw39980.pp
@@ -0,0 +1,43 @@
+{ %opt=-O3 }
+{ %fail }
+
+{ This test has been known to generate internal error 2014091205 }
+  
+program tcond1.pp;
+
+const
+  Expected: array[0..3] of array[0..2] of Integer =
+    ((-10, 3), (-10, 4), (0, -10), (0, -10));
+
+function TestInput(Input, TestAns: Integer): Boolean;
+  var
+    O1, O2, O3: Integer;
+  begin
+    if Input < 2 then 
+      begin
+		O1 := -10;
+		O2 := TestAns;
+	  end
+	else
+	  begin
+	    O1 := 0;
+		O2 := -10;
+	  end;
+	  
+	TestInput :=
+	  (O1 = Expected[Input][0]) and
+	  (O2 = Expected[Input][1]);
+  end;
+  
+var
+  X: Integer;
+  
+begin
+  for X := 0 to 3 do
+    begin
+	  if not TestInput(X, X + 3) then
+	    Halt(1);
+	end;
+	
+  WriteLn('ok');
+end.
\ No newline at end of file