PR target/84336
[official-gcc.git] / gcc / testsuite / gnat.dg / overload.adb
blob9e82815a0cb9902e9a16039b35339896ff362e69
1 -- { dg-do compile }
3 package body Overload is
5 function Get (I : Integer) return Ptr1 is
6 P : Ptr1 := null;
7 begin
8 return P;
9 end;
11 function Get (I : Integer) return Ptr2 is
12 P : Ptr2 := null;
13 begin
14 return P;
15 end;
17 function F (I : Integer) return Ptr1 is
18 P : Ptr1 := Get (I).Data'Access;
19 begin
20 return P;
21 end;
23 end Overload;