gcc/testsuite/gnat.dg/opt20.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-O2 -gnatpn" }
   3
   4 with Ada.Characters.Handling; use Ada.Characters.Handling;
   5
   6 package 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
  18 end Opt20;