gcc/testsuite/gnat.dg/bit_packed_array1.adb

   1 -- PR ada/33788
   2 -- Origin: Oliver Kellogg <oliver.kellogg@eads.com>
   3
   4 -- { dg-do compile }
   5
   6 package body Bit_Packed_Array1 is
   7
   8   procedure Generate_Callforward is
   9       Compiler_Crash : String :=
  10           Laser_Illuminator_Code_Group_T'Image
  11                 (MADR.ISF.Laser_Illuminator_Code (0));
  12   begin
  13       null;
  14   end Generate_Callforward;
  15
  16 end Bit_Packed_Array1;