7 lines
197 B
Ada
7 lines
197 B
Ada
declare
|
|
type Int_Ptr is access all Integer;
|
|
Ref : Int_Ptr;
|
|
Var : aliased Integer := 3;
|
|
Val : Integer := Var;
|
|
begin
|
|
Ref := Var'Access; -- "Ref := Val'Access;" would be a syntax error
|