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;