URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 384 |
-- { dg-do compile }
|
-- { dg-do compile }
|
|
|
procedure aggr7 is
|
procedure aggr7 is
|
|
|
package P is
|
package P is
|
type T is limited private;
|
type T is limited private;
|
type TT is limited private;
|
type TT is limited private;
|
type TTT is tagged limited private;
|
type TTT is tagged limited private;
|
private
|
private
|
type T is limited
|
type T is limited
|
record
|
record
|
Self : access T := T'Unchecked_Access;
|
Self : access T := T'Unchecked_Access;
|
end record;
|
end record;
|
type TT is tagged limited
|
type TT is tagged limited
|
record
|
record
|
Self : access TT := TT'Unchecked_Access;
|
Self : access TT := TT'Unchecked_Access;
|
end record;
|
end record;
|
type TTT is tagged limited
|
type TTT is tagged limited
|
record
|
record
|
Self : access TTT := TTT'Unchecked_Access;
|
Self : access TTT := TTT'Unchecked_Access;
|
end record;
|
end record;
|
end P;
|
end P;
|
|
|
package body P is
|
package body P is
|
X : T := (Self => <>);
|
X : T := (Self => <>);
|
XX : TT := (Self => <>);
|
XX : TT := (Self => <>);
|
XXX : TTT := (Self => <>);
|
XXX : TTT := (Self => <>);
|
Y : T := (others => <>);
|
Y : T := (others => <>);
|
YY : TT := (others => <>);
|
YY : TT := (others => <>);
|
YYY : TTT := (others => <>);
|
YYY : TTT := (others => <>);
|
end P;
|
end P;
|
begin
|
begin
|
null;
|
null;
|
end aggr7;
|
end aggr7;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.