PR target/84336
[official-gcc.git] / gcc / testsuite / gnat.dg / incomplete3.adb
blob6db500f00f6953497d824893b106f66bff2faa7e
1 -- { dg-do compile }
3 package body Incomplete3 is
5 function Get_Tracer (This : access Output_T'Class) return Tracer_T'class is
6 begin
7 return Tracer_T'Class (Tracer_T'(Output => This));
8 end ;
10 function Get_Output (This : in Tracer_T) return access Output_T'Class is
11 begin
12 return This.Output;
13 end;
15 end Incomplete3;