gcc/testsuite/gnat.dg/discr14.adb

   1 -- { dg-do compile }
   2
   3 package body Discr14 is
   4
   5    procedure ASSIGN( TARGET : in out SW_TYPE_INFO ;
   6                      SOURCE : in     SW_TYPE_INFO ) is
   7    begin
   8       TARGET := new T_SW_TYPE_DESCRIPTOR( SOURCE.SW_TYPE, SOURCE.DIMENSION );
   9    end ASSIGN;
  10
  11 end Discr14;