Imported Upstream version 7.9
[platform/upstream/gdb.git] / gdb / testsuite / gdb.ada / info_types.c
1 /* This test program is part of GDB, the GNU debugger.
2
3    Copyright 2010-2015 Free Software Foundation, Inc.
4
5    This program is free software; you can redistribute it and/or modify
6    it under the terms of the GNU General Public License as published by
7    the Free Software Foundation; either version 3 of the License, or
8    (at your option) any later version.
9
10    This program is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13    GNU General Public License for more details.
14
15    You should have received a copy of the GNU General Public License
16    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
17
18 typedef int new_integer_type;
19
20 void
21 do_something (int *val)
22 {
23   *val = *val + 1;
24 }
25
26 int
27 main (void)
28 {
29   new_integer_type toto = 30;
30
31   do_something(&toto);
32   return 0;
33 }
34