16 lines
398 B
Ada
16 lines
398 B
Ada
-- { dg-do compile }
|
|
-- { dg-options "-gnatwu" }
|
|
|
|
with Ada.Command_Line; use Ada.Command_Line;
|
|
with Text_IO; use Text_IO;
|
|
procedure warn3 is
|
|
type Weekdays is (Sun, Mon, Tue, Wed, Thu, Fri, Sat);
|
|
begin
|
|
if Argument_Count > 0 then
|
|
Put_Line
|
|
(Argument (1) & " is weekday number"
|
|
& Integer'Image
|
|
(Weekdays'Pos (Weekdays'Value (Argument (1)))));
|
|
end if;
|
|
end;
|