gcc/testsuite/gnat.dg/sso16.adb

   1 --  { dg-do run }
   2
   3 with Ada.Text_IO; use Ada.Text_IO;
   4
   5 procedure SSO16 is
   6
   7    pragma Default_Scalar_Storage_Order (High_Order_First);
   8
   9    type Enum_T is
  10      (Event_0,
  11       Event_1,
  12       Event_2,
  13       Event_3,
  14       Event_4,
  15       Event_5,
  16       Event_11,
  17       Event_12,
  18       Event_13,
  19       Event_14,
  20       Event_15,
  21       Event_21,
  22       Event_22,
  23       Event_23,
  24       Event_24,
  25       Event_25,
  26       Event_31,
  27       Event_32,
  28       Event_33,
  29       Event_34,
  30       Event_35,
  31       Event_41,
  32       Event_42,
  33       Event_43,
  34       Event_44,
  35       Event_45);
  36
  37    Var : Enum_T := Event_0;
  38
  39 begin
  40    if Var'Image /= "EVENT_0" then
  41       raise Program_Error;
  42    end if;
  43
  44    if Enum_T'Value ("Event_4")'Image /= "EVENT_4" then
  45       raise Program_Error;
  46    end if;
  47
  48    if Enum_T'Val (20)'Image /= "EVENT_35" then
  49       raise Program_Error;
  50    end if;
  51
  52    if Enum_T'Pos (Enum_T'Value ("Event_45"))'Image /= " 25" then
  53       raise Program_Error;
  54    end if;
  55 end;