bit_packed_array.adb

来自「用于进行gcc测试」· ADB 代码 · 共 17 行

-- PR ada/33788
-- Origin: Oliver Kellogg <[e-mail]>

-- { dg-do compile }

package body Bit_Packed_Array 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_Array;