Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/blkextract_from_reg.adb @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { dg-do run } with System, Ada.Unchecked_Conversion; use System; procedure BLKextract_From_Reg is type Byte is range 0 .. +255; for Byte'size use 8; type RGB is array (1 .. 3) of Byte; for RGB'Size use 24; type RAW_Packet is range 0 .. 2 ** 32 - 1; for RAW_Packet'Size use 32; type Composite_Packet is record Values : RGB; Pad : Byte; end record; for Composite_Packet use record Values at 0 range 0 .. 23; Pad at 3 range 0 .. 7; end record; for Composite_Packet'Size use 32; function To_Composite_Packet is new Ada.Unchecked_Conversion (RAW_Packet, Composite_Packet); function Blob return RGB is RAW_Blob : RAW_Packet := 16#01020304#; begin return To_Composite_Packet (RAW_Blob).Values; end; Blob_Color : RGB := Blob; Expected_Color : RGB; begin if System.Default_Bit_Order = High_Order_First then Expected_Color := (1 => 1, 2 => 2, 3 => 3); else Expected_Color := (1 => 4, 2 => 3, 3 => 2); end if; for I in Blob_Color'Range loop if Blob_Color (I) /= Expected_Color (I) then raise Program_Error; end if; end loop; end;