1-- { dg-do compile } 2 3with Ada.Unchecked_Conversion; 4 5package body SSO2 is 6 7 function Conv is new Ada.Unchecked_Conversion (Arr1, Arr2); 8 9 procedure Proc (A1 : Arr1; A2 : out Arr2) is 10 begin 11 A2 := Conv (A1); 12 end; 13 14end SSO2; 15