gcc/testsuite/gnat.dg/discr35.adb

   1 -- { dg-do compile }
   2
   3 package body Discr35 is
   4
   5    procedure Proc1 is
   6      R : Rec2 := Null_Rec2;
   7    begin
   8      null;
   9    end;
  10
  11    procedure Proc2 is
  12      R : Rec2;
  13    begin
  14      R := Null_Rec2;
  15    end;
  16
  17 end Discr35;