URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 338 |
-- { dg-do compile }
|
-- { dg-do compile }
|
|
|
with text_io; use text_io;
|
with text_io; use text_io;
|
procedure modify_a_constant is
|
procedure modify_a_constant is
|
type Outer;
|
type Outer;
|
type Inner (Outer_Ref : access Outer) is limited null record;
|
type Inner (Outer_Ref : access Outer) is limited null record;
|
|
|
type Outer is limited record
|
type Outer is limited record
|
Inner_Field : Inner (Outer_Ref => Outer'Access);
|
Inner_Field : Inner (Outer_Ref => Outer'Access);
|
Integer_Field : Integer;
|
Integer_Field : Integer;
|
end record;
|
end record;
|
|
|
X : constant Outer := (Inner_Field => <>, Integer_Field => 123);
|
X : constant Outer := (Inner_Field => <>, Integer_Field => 123);
|
|
|
begin
|
begin
|
Put_Line (Integer'image (X.Integer_Field));
|
Put_Line (Integer'image (X.Integer_Field));
|
X.Inner_Field.Outer_Ref.Integer_Field := 0;
|
X.Inner_Field.Outer_Ref.Integer_Field := 0;
|
Put_Line (Integer'image (X.Integer_Field));
|
Put_Line (Integer'image (X.Integer_Field));
|
end Modify_A_Constant;
|
end Modify_A_Constant;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.