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