Wattributes-10.c: Add -fno-common option on hppa*-*-hpux*.
[official-gcc.git] / gcc / testsuite / gnat.dg / discr37.adb
blobb0e750e8cacce4c74f65e5e78702673d6ec82922
1 -- { dg-do compile }
3 package body Discr37 is
5 procedure Proc (A : access Child) is
6 B : Derived renames Derived (A.F(1).all);
7 C : Derived renames Derived (B.S(1).all);
8 begin
9 null;
10 end;
12 end Discr37;