[gdb/testsuite] Factor out lib/valgrind.exp
[external/binutils.git] / gdb / testsuite / gdb.base / wchar.c
1 /* This testcase is part of GDB, the GNU debugger.
2
3    Copyright 2011-2018 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 #include <wchar.h>
19
20 void
21 do_nothing (wchar_t *c)
22 {
23 }
24
25 int
26 main (void)
27 {
28   int i;
29   wchar_t narrow = 97;
30   wchar_t single = 0xbeef;
31   wchar_t simple[] = L"facile";
32   wchar_t difficile[] = { 0xdead, 0xbeef, 0xfeed, 0xface};
33   wchar_t mixed[] = {L'f', 0xdead, L'a', L'c', 0xfeed, 0xface};
34   wchar_t *cent = L"\242";
35   wchar_t repeat[128];
36   wchar_t *repeat_p = repeat;
37
38   repeat[0] = 0;
39   wcscat (repeat, L"A");
40   for (i = 0; i < 21; ++i)
41     wcscat (repeat, cent);
42   wcscat (repeat, L"B");
43
44   do_nothing (&narrow); /* START */
45   do_nothing (&single);
46   do_nothing (simple);
47   do_nothing (difficile);
48   do_nothing (mixed);
49 }
50