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=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID,
	WEIRD_PORT autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,5c7d6dc1ca496e51,start
X-Google-Attributes: gid103376,public
From: Juergen.Hoyng@ri.dasa.de
Subject: GNAT bug?
Date: 1999/02/09
Message-ID: <79ptl3$jdp$1@nnrp1.dejanews.com>#1/1
X-Deja-AN: 442462664
X-Http-Proxy: 1.0 x1.dejanews.com:80 (Squid/1.1.22) for client 149.243.232.3
Organization: Deja News - The Leader in Internet Discussion
X-Article-Creation-Date: Tue Feb 09 18:09:50 1999 GMT
Newsgroups: comp.lang.ada
X-Http-User-Agent: Mozilla/4.02 [en] (X11; I; SunOS 5.5 sun4m)
Date: 1999-02-09T00:00:00+00:00
List-Id: <comp.lang.ada>

Hello!

The followings compilation units can be compiled with the Ada83 compiler VADS
6.2.3(c) (Solaris 2.5.1) and Alsys 5.5.4 (HP_UX 10.20).

generic
    type Item      is private;
package Foo is
    type Foo_Type (Kind: Positive) is limited private;
    procedure Foo_Op (Target : in out Foo_Type;
                      Source : in      Foo_Type);
private
   type Foo_Type (Kind: Positive) is
   record
     Blah_Bah : Integer;
    end record;
end Foo;

with Foo;
package X is
   package My_Foo is new Foo(Integer);
   type My_Foo_Type is new My_Foo.Foo_Type;
   procedure Test (X : in out My_Foo_Type;
                   Y : in     My_Foo_Type);
end X;

with Foo;
package body X is
   procedure Test (X : in out My_Foo_Type;
                   Y : in     My_Foo_Type) is
   begin
      Foo_Op (X,Y);  --    <-------- ?????
   end Test;
end X;

When trying to compile these compilation units with gnat-3.11p (Solaris 2.5.1)
I got the error message:
x.adb:6:15: expected private type "My_Foo_Type" defined at x.ads:4
x.adb:6:15: found type "My_Foo_Type" defined at x.ads:4

Is this an Ada95/Ada83 incompatibility or a GNAT bug?


Thanks in advance


Juergen



Juergen Hoyng,  RIO 62             |   email : Juergen.Hoyng@ri.dasa.de
DaimlerChrysler Aerospace AG	   |   fax   : +49 421 539 4529
Raumfahrt Infrastruktur            |
Postfach 286156                    |   voice : +49 421 539 5348
D-28361 Bremen                     |
Germany

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own