From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001 From: upstream source tree Date: Sun, 15 Mar 2015 20:14:05 -0400 Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream tarball. downloading a git-generated archive based on the 'upstream' tag should provide you with a source tree that is binary identical to the one extracted from the above tarball. if you have obtained the source via the command 'git clone', however, do note that line-endings of files in your working directory might differ from line-endings of the respective files in the upstream repository. --- gcc/testsuite/gnat.dg/bit_packed_array1.ads | 34 +++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 gcc/testsuite/gnat.dg/bit_packed_array1.ads (limited to 'gcc/testsuite/gnat.dg/bit_packed_array1.ads') diff --git a/gcc/testsuite/gnat.dg/bit_packed_array1.ads b/gcc/testsuite/gnat.dg/bit_packed_array1.ads new file mode 100644 index 000000000..a0d5ab7a8 --- /dev/null +++ b/gcc/testsuite/gnat.dg/bit_packed_array1.ads @@ -0,0 +1,34 @@ +with Interfaces; + +package Bit_Packed_Array1 is + + type laser_illuminator_code_group_t is (zero, one); + pragma Convention (C, laser_illuminator_code_group_t); + + subtype lic_array_index_t is Interfaces.Unsigned_8 range 0 .. 3; + + type lic_array_t is array (lic_array_index_t) + of laser_illuminator_code_group_t; + pragma Convention (C, lic_array_t); + + type Eighty_Bytes_T is array (1 .. 80) of Interfaces.Unsigned_8; + + type Mission_Assignment_T is record + Eighty_Bytes : Eighty_Bytes_T; + Laser_Illuminator_Code : lic_array_t; + end record; + + for Mission_Assignment_T use record + Eighty_Bytes at 0 range 0 .. 639; + Laser_Illuminator_Code at 0 range 653 .. 780; + end record; + + type Mission_Assignment_Dbase_Rec_T is record + ISF : Mission_Assignment_T; + end record; + + MADR : Mission_Assignment_Dbase_Rec_T; + + procedure Generate_Callforward; + +end Bit_Packed_Array1; -- cgit v1.2.3