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