]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - gdb/testsuite/gdb.ada/ref_param/pck.ads
Update copyright year range in all GDB files
[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.ada / ref_param / pck.ads
CommitLineData
e2882c85 1-- Copyright 2008-2018 Free Software Foundation, Inc.
81c9b2cf
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
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
16package Pck is
17
18 type Data is record
19 One : Integer;
20 Two : Integer;
21 Three : Integer;
22 Four : Integer;
23 Five : Integer;
24 Six : Integer;
25 end record;
26
27 procedure Call_Me (D : in out Data);
28
29end Pck;