gcc/testsuite/gnat.dg/concat2.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-O" }
   3
   4 with Text_IO; use Text_IO;
   5
   6 package 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
  20 end Concat2;