URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
| Rev 304 |
Rev 338 |
-- { dg-do run }
|
-- { dg-do run }
|
|
|
procedure Interface_Conv is
|
procedure Interface_Conv is
|
package Pkg is
|
package Pkg is
|
type I1 is interface;
|
type I1 is interface;
|
procedure Prim (X : I1) is null;
|
procedure Prim (X : I1) is null;
|
type I2 is interface;
|
type I2 is interface;
|
procedure Prim (X : I2) is null;
|
procedure Prim (X : I2) is null;
|
type DT is new I1 and I2 with null record;
|
type DT is new I1 and I2 with null record;
|
end Pkg;
|
end Pkg;
|
use Pkg;
|
use Pkg;
|
Obj : DT;
|
Obj : DT;
|
CW_3 : I2'Class := Obj;
|
CW_3 : I2'Class := Obj;
|
CW_5 : I1'Class := I1'Class (CW_3); -- test
|
CW_5 : I1'Class := I1'Class (CW_3); -- test
|
begin
|
begin
|
null;
|
null;
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.
