Wattributes-10.c: Add -fno-common option on hppa*-*-hpux*.
[official-gcc.git] / gcc / testsuite / gnat.dg / discr35.adb
blob16bacd6c19b0fdd61c6aa0334bbe9caa9b2b1eee
1 -- { dg-do compile }
3 package body Discr35 is
5 procedure Proc1 is
6 R : Rec2 := Null_Rec2;
7 begin
8 null;
9 end;
11 procedure Proc2 is
12 R : Rec2;
13 begin
14 R := Null_Rec2;
15 end;
17 end Discr35;