1-- PR ada/33788
2-- Origin: Oliver Kellogg <oliver.kellogg@eads.com>
3
4-- { dg-do compile }
5
6package 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
16end Bit_Packed_Array1;
17