1 files changed, 19 insertions, 0 deletions
diff --git a/gcc/ada/s-conca5.adb b/gcc/ada/s-conca5.adb
index e463255a5bb..f0019961a99 100644
--- a/gcc/ada/s-conca5.adb
+++ b/gcc/ada/s-conca5.adb
@@ -31,6 +31,8 @@
 
 pragma Compiler_Unit;
 
+with System.Concat_4;
+
 package body System.Concat_5 is
 
    pragma Suppress (All_Checks);
@@ -64,4 +66,21 @@ package body System.Concat_5 is
       R (F .. L) := S5;
    end Str_Concat_5;
 
+   -------------------------
+   -- Str_Concat_Bounds_5 --
+   -------------------------
+
+   procedure Str_Concat_Bounds_5
+     (Lo, Hi             : out Natural;
+      S1, S2, S3, S4, S5 : String)
+   is
+   begin
+      System.Concat_4.Str_Concat_Bounds_4 (Lo, Hi, S2, S3, S4, S5);
+
+      if S1 /= "" then
+         Hi := S1'Last + Hi - Lo + 1;
+         Lo := S1'First;
+      end if;
+   end Str_Concat_Bounds_5;
+
 end System.Concat_5;