gcc/testsuite/gnat.dg/sso2.ads

   1 with System;
   2
   3 package SSO2 is
   4
   5   type Arr1 is array (1 .. 4) of Character;
   6   for Arr1'Scalar_Storage_Order use System.High_Order_First;
   7
   8   type Arr2 is array (1 .. 4) of Character;
   9   for Arr2'Scalar_Storage_Order use System.Low_Order_First;
  10
  11   procedure Proc (A1 : Arr1; A2 : out Arr2);
  12
  13 end SSO2;