gcc/testsuite/gnat.dg/sso8.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

-- { dg-do run }
-- { dg-options "-O" }

with Interfaces; use Interfaces;
with SSO8_Pkg; use SSO8_Pkg;

procedure SSO8 is
  Data : Rec;
begin
  Data.Array_Data (2) := True;
  Val8 := Conv (Data);
  if Val8 /= 32 then
    raise Program_Error;
  end if;
end;