1--  { dg-do run }
2--  { dg-options "-g -O0 -gnata" }
3
4procedure Concat3 is
5   procedure Show_Bug (S : in String)
6   is
7      Str : constant String := S & "-" with Alignment => 4;
8   begin
9      null;
10   end Show_Bug;
11
12begin
13   Show_Bug ("BUG");
14end Concat3;