From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: =?UTF-8?B?QmrDtnJuIEx1bmRpbg==?= <b.f.lundin@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: Assembling Complex Strings Containing Carriage Returns Prior
 to Using Ada.Text_IO.Put?
Date: Wed, 22 Oct 2014 13:16:11 +0200
Organization: A noiseless patient Spider
Message-ID: <m283jp$su1$1@dont-email.me>
References: <7c1b89e6-9ab8-4faa-b60c-c5c4683f0bff@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
Injection-Date: Wed, 22 Oct 2014 11:15:05 +0000 (UTC)
Injection-Info: mx02.eternal-september.org;
 posting-host="23e59b4906029a0ce22afc4c4b1f25ee";
	logging-data="29633"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1/pl8JZ6IYVQOnA/ScwXjDl"
User-Agent: Mozilla/5.0 (X11; Linux x86_64;
 rv:31.0) Gecko/20100101 Icedove/31.0
In-Reply-To: <7c1b89e6-9ab8-4faa-b60c-c5c4683f0bff@googlegroups.com>
Cancel-Lock: sha1:4yrUncqvy0p+aUpfnjCCBqxPfxk=
Xref: news.eternal-september.org comp.lang.ada:22657
Date: 2014-10-22T13:16:11+02:00
List-Id: <comp.lang.ada>

On 2014-10-22 07:57, NiGHTS wrote:
> I am converting some code from C to Ada which involves building a complex string containing '\n' characters which would eventually be displayed on the standard output console using the printf() function. 
> 
> I tried to copy the same strategy of building the string in Ada like this:
> 
> 
> Complex_String : Ada.Strings.Unbounded.Unbounded_String;
> EOL            : String := ASCII.CR'Img;
> 
> ...
> 
> Ada.Strings.Unbounded.Append (Complex_String, 
>     "Menu Title"                            & EOL & 
>     "-------------------------------------" & EOL
> );
> 
> ...
> 
> Ada.Text_Io.Put ( 
> Ada.Strings.Unbounded.To_String( Complex_String ) );
> 

I use

EOL : constant Character := Ada.Characters.Latin_1.LF;

successfully on unix and on windows, with gnat.

As many pointed out, you want Line_Feed, not Carriage_Return

--
Björn