runtime: copy more of scheduler from Go 1.7 runtime

[official-gcc.git] / gcc / testsuite / gnat.dg / sso2.adb

-- { dg-do compile }

with Ada.Unchecked_Conversion;

package body SSO2 is

  function Conv is new Ada.Unchecked_Conversion (Arr1, Arr2);

  procedure Proc (A1 : Arr1; A2 : out Arr2) is
  begin
     A2 := Conv (A1);
  end;

end SSO2;