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