summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/discr37.adb
blob: b0e750e8cacce4c74f65e5e78702673d6ec82922 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
-- { 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;