diff --git a/components/lazdebuggergdbmi/gdbtypeinfo.pp b/components/lazdebuggergdbmi/gdbtypeinfo.pp
index 1700862b72..d55ee6027d 100644
--- a/components/lazdebuggergdbmi/gdbtypeinfo.pp
+++ b/components/lazdebuggergdbmi/gdbtypeinfo.pp
@@ -1247,8 +1247,14 @@ begin
         PCastCnt := j;
       end
       else
-      if (PCastCnt = 0) then
+      if (PCastCnt = 0) then begin
         Result := Result + '^';
+        if ((IdxPart.PTypeReq.Result.Kind = ptprkSimple) and (ptprfPointer in IdxPart.PTypeReq.Result.Flags)) or
+           //=[ptprfPointer, ptprfDynArray, ptprfNoBounds, ptprfDeclarationInBrackets] Kind=ptprkArray Nam
+           ((IdxPart.PTypeReq.Result.Kind = ptprkArray) and (IdxPart.PTypeReq.Result.Flags * [ptprfPointer, ptprfDynArray, ptprfNoBounds] = [ptprfPointer, ptprfDynArray, ptprfNoBounds]))
+        then
+          Result := '('+Result + '+0)';
+      end;
     end;
 
     if toSkipArrayIdx in AOpts