blob: b0e750e8cacce4c74f65e5e78702673d6ec82922 [file] [log] [blame]
-- { dg-do compile }
package body Discr37 is
procedure Proc (A : access Child) is
B : Derived renames Derived (A.F(1).all);
C : Derived renames Derived (B.S(1).all);
begin
null;
end;
end Discr37;