]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - gdb/testsuite/gdb.ada/array_return/pck.ads
Automatic Copyright Year update after running gdb/copyright.py
[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.ada / array_return / pck.ads
CommitLineData
4a94e368 1-- Copyright 2006-2022 Free Software Foundation, Inc.
53bbefe9
JB
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
cc00619d 5-- the Free Software Foundation; either version 3 of the License, or
53bbefe9
JB
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
cc00619d 14-- along with this program. If not, see <http://www.gnu.org/licenses/>.
53bbefe9 15
1495de3f
JB
16package Pck is
17
18 type Data_Small is array (1 .. 2) of Integer;
19 type Data_Large is array (1 .. 4) of Integer;
20
ba54f318
JB
21 type Small_Float_Vector is array (1 .. 2) of Float;
22
1495de3f
JB
23 function Create_Small return Data_Small;
24 function Create_Large return Data_Large;
ba54f318 25 function Create_Small_Float_Vector return Small_Float_Vector;
1495de3f
JB
26
27end Pck;
28