1-- { dg-do compile }
2
3package 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
11end Discr14;
12