blob: 6db500f00f6953497d824893b106f66bff2faa7e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
-- { dg-do compile }
package body Incomplete3 is
function Get_Tracer (This : access Output_T'Class) return Tracer_T'class is
begin
return Tracer_T'Class (Tracer_T'(Output => This));
end ;
function Get_Output (This : in Tracer_T) return access Output_T'Class is
begin
return This.Output;
end;
end Incomplete3;
|