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