public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug ada/16085] New: Wrong output from legal program, dereferencing access all T'Class
@ 2004-06-19 15:03 ludovic dot brenta at insalien dot org
2004-06-19 16:42 ` [Bug ada/16085] " pinskia at gcc dot gnu dot org
2004-06-30 14:31 ` charlet at gcc dot gnu dot org
0 siblings, 2 replies; 3+ messages in thread
From: ludovic dot brenta at insalien dot org @ 2004-06-19 15:03 UTC (permalink / raw)
To: gcc-bugs
with text_io;
procedure Test_248171 is
package pak1 is
type T1 is abstract tagged null record;
type T1_ptr is access all T1'Class;
procedure p2 (y: T1) is abstract;
type T2 is abstract new T1 with null record;
type T3 is new T2 with null record;
type T4 is new T3 with private;
type T4_ptr is access all T4;
procedure p2 (y: T3);
private
type T4 is new T3 with null record;
type T5 is new T4 with null record;
end pak1;
package body pak1 is
procedure p2 (y: T3) is
begin
null;
end;
end pak1;
use pak1;
x: T4_ptr := new T4;
begin
p2(T1_ptr(x).all);
text_io.put_line("passed");
exception
when others => text_io.put_line("failed");
end Test_248171;
The program shoud print "passed", instead it prints "failed".
--
Summary: Wrong output from legal program, dereferencing access
all T'Class
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=16085
^ permalink raw reply [flat|nested] 3+ messages in thread
* [Bug ada/16085] Wrong output from legal program, dereferencing access all T'Class
2004-06-19 15:03 [Bug ada/16085] New: Wrong output from legal program, dereferencing access all T'Class ludovic dot brenta at insalien dot org
@ 2004-06-19 16:42 ` pinskia at gcc dot gnu dot org
2004-06-30 14:31 ` charlet at gcc dot gnu dot org
1 sibling, 0 replies; 3+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2004-06-19 16:42 UTC (permalink / raw)
To: gcc-bugs
--
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |wrong-code
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16085
^ permalink raw reply [flat|nested] 3+ messages in thread
* [Bug ada/16085] Wrong output from legal program, dereferencing access all T'Class
2004-06-19 15:03 [Bug ada/16085] New: Wrong output from legal program, dereferencing access all T'Class ludovic dot brenta at insalien dot org
2004-06-19 16:42 ` [Bug ada/16085] " pinskia at gcc dot gnu dot org
@ 2004-06-30 14:31 ` charlet at gcc dot gnu dot org
1 sibling, 0 replies; 3+ messages in thread
From: charlet at gcc dot gnu dot org @ 2004-06-30 14:31 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From charlet at gcc dot gnu dot org 2004-06-30 14:20 -------
Works fine on mainline.
--
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |RESOLVED
Resolution| |FIXED
Target Milestone|--- |3.5.0
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16085
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2004-06-30 14:20 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-06-19 15:03 [Bug ada/16085] New: Wrong output from legal program, dereferencing access all T'Class ludovic dot brenta at insalien dot org
2004-06-19 16:42 ` [Bug ada/16085] " pinskia at gcc dot gnu dot org
2004-06-30 14:31 ` 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).