1-- { dg-do compile }
2-- { dg-options "-O" }
3
4with Text_IO; use Text_IO;
5
6package body Concat2 is
7
8   function Get_Param return String is
9   begin
10      return "";
11   end;
12
13   procedure Browse is
14      Mode         : constant String := Get_Param;
15      Mode_Param   : constant String := "MODE=" & Mode;
16   begin
17      Put_Line (Mode_Param);
18   end;
19
20end Concat2;
21