gdb/testsuite/gdb.ada/tick_length_array_enum_idx/foo_n207_004.adb

   1 --  Copyright 2014-2023 Free Software Foundation, Inc.
   2 --
   3 --  This program is free software; you can redistribute it and/or modify
   4 --  it under the terms of the GNU General Public License as published by
   5 --  the Free Software Foundation; either version 3 of the License, or
   6 --  (at your option) any later version.
   7 --
   8 --  This program is distributed in the hope that it will be useful,
   9 --  but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 --  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 --  GNU General Public License for more details.
  12 --
  13 --  You should have received a copy of the GNU General Public License
  14 --  along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15
  16 with Pck; use Pck;
  17
  18 procedure Foo_n207_004 is
  19    Full : Full_Table := (False, True, False, True, False);
  20    Prim : Primary_Table := (True, False, False);
  21    Cold : Variable_Table := (Green => False, Blue => True, White => True);
  22    Vars : Variable_Table :=  New_Variable_Table (Low => Red, High => Green);
  23    PT_Full : Full_PT := (False, True, False, True, False);
  24 begin
  25    Do_Nothing (Full'Address);  -- STOP
  26    Do_Nothing (Prim'Address);
  27    Do_Nothing (Cold'Address);
  28    Do_Nothing (Vars'Address);
  29    Do_Nothing (PT_Full'Address);
  30 end Foo_n207_004;