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