URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 384 |
-- { dg-do compile }
|
-- { dg-do compile }
|
|
|
procedure in_mod_conv is
|
procedure in_mod_conv is
|
package Test is
|
package Test is
|
type T is new Natural range 1..6;
|
type T is new Natural range 1..6;
|
subtype T_SubType is T range 3..5;
|
subtype T_SubType is T range 3..5;
|
type A1 is array (T range <>) of boolean;
|
type A1 is array (T range <>) of boolean;
|
type A2 is new A1 (T_SubType);
|
type A2 is new A1 (T_SubType);
|
PRAGMA pack (A2);
|
PRAGMA pack (A2);
|
type New_A2 is new A2;
|
type New_A2 is new A2;
|
end Test;
|
end Test;
|
package body Test is
|
package body Test is
|
procedure P1 (Obj : in New_A2) is
|
procedure P1 (Obj : in New_A2) is
|
begin
|
begin
|
null;
|
null;
|
end P1;
|
end P1;
|
procedure P2 (Data : in out A2) is
|
procedure P2 (Data : in out A2) is
|
begin
|
begin
|
P1 (New_A2 (Data (T_SubType))); -- test
|
P1 (New_A2 (Data (T_SubType))); -- test
|
end P2;
|
end P2;
|
end Test;
|
end Test;
|
begin
|
begin
|
null;
|
null;
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.