11 lines
214 B
Ada
11 lines
214 B
Ada
|
-- { dg-do compile }
|
||
|
|
|
||
|
|
with pointer_protected_p;
|
||
|
|
|
||
|
|
procedure pointer_protected is
|
||
|
|
Pointer : pointer_protected_p.Ptr := null;
|
||
|
|
Data : pointer_protected_p.T;
|
||
|
|
begin
|
||
|
|
Pointer.all (Data);
|
||
|
|
end pointer_protected;
|