summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/bit_packed_array1.adb
blob: 10fd2921f542b7ac977e244dd8792da520ee4869 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
-- PR ada/33788
-- Origin: Oliver Kellogg <oliver.kellogg@eads.com>

-- { dg-do compile }

package body Bit_Packed_Array1 is

  procedure Generate_Callforward is
      Compiler_Crash : String :=
          Laser_Illuminator_Code_Group_T'Image
                (MADR.ISF.Laser_Illuminator_Code (0));
  begin
      null;
  end Generate_Callforward;

end Bit_Packed_Array1;