blob: c9241c28d823d44090355232488c2ed2851099ae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
-- { dg-do compile }
package body Renaming11 is
function F (Arg: Ptr3) return Integer is
V : Ptr1 renames Arg.all.all;
I : Integer renames V.A(1);
begin
return I;
end;
end Renaming11;
|