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.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC,WEIRD_QUOTING autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Thread: 103376,d0475d4d02ffd8d9,start
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news4.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsfeed.arcor.de!newsspool4.arcor-online.net!news.arcor.de.POSTED!not-for-mail
From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Subject: To collection (GNAT bug)
Newsgroups: comp.lang.ada
User-Agent: 40tude_Dialog/2.0.15.1
MIME-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit
Reply-To: mailbox@dmitry-kazakov.de
Organization: cbb software GmbH
Date: Sat, 30 Sep 2006 21:46:31 +0200
Message-ID: <1fo8mdcya4lc1.1xzuim6fz5a6a.dlg@40tude.net>
NNTP-Posting-Date: 30 Sep 2006 21:46:14 CEST
NNTP-Posting-Host: 53b0bfff.newsspool1.arcor-online.net
X-Trace: 
 DXC=3<GZYBP6m2ZYI9]OHn9o5^ic==]BZ:af^4Fo<]lROoRQgUcjd<3m<;RX<Y;VTTm>FY[6LHn;2LCV^[<mhadbfdU[[PJ8HVK<lNYMW3e4HcHk^P
X-Complaints-To: usenet-abuse@arcor.de
Xref: g2news2.google.com comp.lang.ada:6813
Date: 2006-09-30T21:46:14+02:00
List-Id: <comp.lang.ada>

The following does not work in GCC 4.1.1 (20060525), as well as in 3.15p
-----------------
with Ada.Unchecked_Conversion;

with Ada.Text_IO;  use Ada.Text_IO;
with System;       use System;

procedure Test_String_Ptr is
   type Ptr is access String;
   function To_Addr is new Ada.Unchecked_Conversion (Ptr, Address);
   function To_Ptr  is new Ada.Unchecked_Conversion (Address, Ptr);
   X    : Ptr;
   Y    : Ptr;
   Addr : Address;
begin
   X    := new String'("A");
   Addr := To_Addr (X);
   Y := To_Ptr (Addr);
   Put_Line (Y.all);
   Y := To_Ptr (Addr);
   Put_Line (Y.all);
   Y := To_Ptr (Addr);
   Put_Line (Y.all);
   Put_Line ("It must have been three lines ""A""");
end Test_String_Ptr;

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de