1-- { dg-do compile }
2-- { dg-options "-O2 -gnatpn" }
3
4with Ada.Characters.Handling; use Ada.Characters.Handling;
5
6package body Opt20 is
7
8   type Build_Mode_State is (None, Static, Dynamic, Relocatable);
9
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;
13   begin
14      Fail (Project_Name);
15      Write_Str (To_Lower (Build_Mode_State'Image (The_Build_Mode)));
16   end;
17
18end Opt20;
19