gcc/testsuite/gnat.dg/discr29.adb

   1 -- { dg-do compile }
   2
   3 package body Discr29 is
   4
   5    procedure Proc (R : out Rec3) is
   6    begin
   7       R := (False, Tmp);
   8    end;
   9
  10 end Discr29;