gcc/testsuite/gnat.dg/discr53.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

--  { dg-do compile }

package body Discr53 is

   function F return Rec is
      Data : Rec;
   begin
      return Data;
   end;

   type Ptr is access Rec;

   procedure Proc is
      Local : Ptr;
   begin
      Local := new Rec'(F);
   end;

end Discr53;