gdb/testsuite/gdb.ada/homonym/homonym.adb

   1 --  Copyright 2008, 2009, 2010 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 package body Homonym is
  17
  18    type Integer_Range is new Integer range -100 .. 100;
  19    type Positive_Range is new Positive range 1 .. 19740804;
  20
  21    ---------------
  22    -- Get_Value --
  23    ---------------
  24
  25    function Get_Value return Integer_Range
  26    is
  27       subtype Local_Type is Integer_Range;
  28       subtype Local_Type_Subtype is Local_Type;
  29       subtype Int_Type   is Integer_Range;
  30       Lcl : Local_Type := 29;
  31    begin
  32       return Lcl;  --  BREAK_1
  33    end Get_Value;
  34
  35    ---------------
  36    -- Get_Value --
  37    ---------------
  38
  39    function Get_Value return Positive_Range
  40    is
  41       subtype Local_Type is Positive_Range;
  42       subtype Local_Type_Subtype is Local_Type;
  43       subtype Pos_Type is Positive_Range;
  44       Lcl : Local_Type := 17;
  45    begin
  46       return Lcl;  --  BREAK_2
  47    end Get_Value;
  48
  49    ----------------
  50    -- Start_Test --
  51    ----------------
  52
  53    procedure Start_Test is
  54       Int : Integer_Range;
  55       Pos : Positive_Range;
  56    begin
  57       Int := Get_Value;
  58       Pos := Get_Value;
  59    end Start_Test;
  60
  61 end Homonym;