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