diff --git a/components/lazdebuggergdbmi/test/testgdbtype.pas b/components/lazdebuggergdbmi/test/testgdbtype.pas
index 2ef5c0e712..d48fabf466 100644
--- a/components/lazdebuggergdbmi/test/testgdbtype.pas
+++ b/components/lazdebuggergdbmi/test/testgdbtype.pas
@@ -666,7 +666,7 @@ begin
   r^.Result := ParseTypeFromGdb('type = array of TFoo');
   ContinueExpr(b, r, v);
   AssertTrue(n + ' Needexp after dyn array(dwarf)', not v);
-  AssertEqualsLc(n + ' text after dyn array(dwarf)', 'TFoo(abc^[123]).x', b.Text);
+  AssertEqualsLc(n + ' text after dyn array(dwarf)', 'TFoo((abc^+0)[123]).x', b.Text);
 
 
   InitExpr(n, b, r, v);