1-- { dg-do run } 2-- { dg-options "-O2" } 3 4with Ada.Command_Line; use Ada.Command_Line; 5 6procedure Opt65 is 7 8 procedure Check_Version_And_Help (Version_String : String) is 9 Help_Switch_Present : Boolean := False; 10 Next_Arg : Natural := 1; 11 begin 12 while Next_Arg <= Argument_Count loop 13 declare 14 Next_Argv : constant String := Argument (Next_Arg); 15 begin 16 if Next_Argv = "--help" then 17 Help_Switch_Present := True; 18 end if; 19 Next_Arg := Next_Arg + 1; 20 end; 21 end loop; 22 23 if Help_Switch_Present then 24 raise Program_Error; 25 end if; 26 end; 27 28begin 29 Check_Version_And_Help ("version"); 30end; 31