1-- { dg-do run }
2-- { dg-options "-O" }
3
4with Interfaces; use Interfaces;
5with SSO8_Pkg; use SSO8_Pkg;
6
7procedure SSO8 is
8  Data : Rec;
9begin
10  Data.Array_Data (2) := True;
11  Val8 := Conv (Data);
12  if Val8 /= 32 then
13    raise Program_Error;
14  end if;
15end;
16