2 -- { dg-options "-O2 -fno-inline" }
5 function Get return String is
10 Message : String := Get;
14 for J in Message'Range loop
15 if Message (J) = '[' then
17 elsif Message (J) = ']' then
25 Message (Message'First .. F) & Message (L .. Message'Last);