public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug ada/15842] New: Legal program rejected
@ 2004-06-06 10:17 ludovic dot brenta at insalien dot org
2004-10-12 4:04 ` [Bug ada/15842] " pinskia at gcc dot gnu dot org
` (2 more replies)
0 siblings, 3 replies; 4+ messages in thread
From: ludovic dot brenta at insalien dot org @ 2004-06-06 10:17 UTC (permalink / raw)
To: gcc-bugs
with System.Storage_Pools;
with System.Storage_Elements;
package Test_247016 is
type Storage_Pool_Type
is new System.Storage_Pools.Root_Storage_Pool with null record;
procedure Allocate
(Pool : in out Storage_Pool_Type;
Storage_Address : out System.Address;
Size_In_Storage_Elements : in System.Storage_Elements.Storage_Count;
Alignment : in System.Storage_Elements.Storage_Count);
procedure Deallocate
(Pool : in out Storage_Pool_Type;
Storage_Address : in System.Address;
Size_In_Storage_Elements : in System.Storage_Elements.Storage_Count;
Alignment : in System.Storage_Elements.Storage_Count);
function Storage_Size
(Pool : in Storage_Pool_Type)
return System.Storage_Elements.Storage_Count;
x1: Storage_Pool_Type;
type T1 is access integer;
for T1'Storage_Pool use System.Storage_Pools.Root_Storage_Pool (x1);
end Test_247016;
The compiler says incorrectly:
test_247016.ads:26:48: incorrect reference to a Storage Pool
gnatmake: "test_247016.ads" compilation error
--
Summary: Legal program rejected
Product: gcc
Version: 3.4.0
Status: UNCONFIRMED
Severity: normal
Priority: P2
Component: ada
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: ludovic dot brenta at insalien dot org
CC: gcc-bugs at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=15842
^ permalink raw reply [flat|nested] 4+ messages in thread
* [Bug ada/15842] Legal program rejected
2004-06-06 10:17 [Bug ada/15842] New: Legal program rejected ludovic dot brenta at insalien dot org
@ 2004-10-12 4:04 ` pinskia at gcc dot gnu dot org
2004-10-29 13:32 ` pinskia at gcc dot gnu dot org
2004-10-29 13:34 ` charlet at gcc dot gnu dot org
2 siblings, 0 replies; 4+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2004-10-12 4:04 UTC (permalink / raw)
To: gcc-bugs
--
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |rejects-valid
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=15842
^ permalink raw reply [flat|nested] 4+ messages in thread
* [Bug ada/15842] Legal program rejected
2004-06-06 10:17 [Bug ada/15842] New: Legal program rejected ludovic dot brenta at insalien dot org
2004-10-12 4:04 ` [Bug ada/15842] " pinskia at gcc dot gnu dot org
@ 2004-10-29 13:32 ` pinskia at gcc dot gnu dot org
2004-10-29 13:34 ` charlet at gcc dot gnu dot org
2 siblings, 0 replies; 4+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2004-10-29 13:32 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From pinskia at gcc dot gnu dot org 2004-10-29 13:32 -------
I get this on the mainline):
cannot generate code for file test_247016.ads (package spec)
to check package spec for errors, use -gnatc
(I don't know gnat/Ada that much, does that mean this code is accepted?)
--
What |Removed |Added
----------------------------------------------------------------------------
Target Milestone|--- |4.0.0
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=15842
^ permalink raw reply [flat|nested] 4+ messages in thread
* [Bug ada/15842] Legal program rejected
2004-06-06 10:17 [Bug ada/15842] New: Legal program rejected ludovic dot brenta at insalien dot org
2004-10-12 4:04 ` [Bug ada/15842] " pinskia at gcc dot gnu dot org
2004-10-29 13:32 ` pinskia at gcc dot gnu dot org
@ 2004-10-29 13:34 ` charlet at gcc dot gnu dot org
2 siblings, 0 replies; 4+ messages in thread
From: charlet at gcc dot gnu dot org @ 2004-10-29 13:34 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From charlet at gcc dot gnu dot org 2004-10-29 13:34 -------
If that's the only error you are getting, and compiling the spec with -gnatc
gives no error, then indeed the problem is fixed.
Arno
--
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |RESOLVED
Resolution| |FIXED
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=15842
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2004-10-29 13:34 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-06-06 10:17 [Bug ada/15842] New: Legal program rejected ludovic dot brenta at insalien dot org
2004-10-12 4:04 ` [Bug ada/15842] " pinskia at gcc dot gnu dot org
2004-10-29 13:32 ` pinskia at gcc dot gnu dot org
2004-10-29 13:34 ` charlet at gcc dot gnu dot org
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).