gcc/testsuite/gnat.dg/discr59.adb

   1 -- { dg-do run }
   2
   3 with Discr59_Pkg1; use Discr59_Pkg1;
   4
   5 procedure Discr59 is
   6
   7    function At_Response_Decode return At_Response_Type is
   8       Fill : At_Response_Type (Alert, 1);
   9    begin
  10       return Fill;
  11    end;
  12
  13    function Decode return Rec is
  14       Make : constant At_Response_Type := At_Response_Decode;
  15       Fill : Rec (At_Response, Make.Kind, Make.Units);
  16    begin
  17       return Fill;
  18    end;
  19
  20    R : constant Rec := Decode;
  21
  22 begin
  23    null;
  24 end;