gcc-4.9/gcc/testsuite/gnat.dg/opt20.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

-- { dg-do compile }
-- { dg-options "-O2 -gnatpn" }

with Ada.Characters.Handling; use Ada.Characters.Handling;

package body Opt20 is

   type Build_Mode_State is (None, Static, Dynamic, Relocatable);

   procedure Build_Library (For_Project : Integer) is
      Project_Name : constant String := Get_Name_String (For_Project);
      The_Build_Mode : Build_Mode_State := None;
   begin
      Fail (Project_Name);
      Write_Str (To_Lower (Build_Mode_State'Image (The_Build_Mode)));
   end;

end Opt20;