2 -- { dg-options "-O2 -gnatpn" }
4 with Ada.Characters.Handling; use Ada.Characters.Handling;
8 type Build_Mode_State is (None, Static, Dynamic, Relocatable);
10 procedure Build_Library (For_Project : Integer) is
11 Project_Name : constant String := Get_Name_String (For_Project);
12 The_Build_Mode : Build_Mode_State := None;
15 Write_Str (To_Lower (Build_Mode_State'Image (The_Build_Mode)));