annotate tests/test-count-leading-zeros.c @ 40246:c34f677e6117 default tip master

_Noreturn: GCC 4.7 does not support [[noreturn]] in C++11 mode * lib/_Noreturn.h, m4/gnulib-common.m4: Don't use [[noreturn]] before GCC 4.8.
author Akim Demaille <akim.demaille@gmail.com>
date Sun, 17 Mar 2019 19:27:20 +0100
parents 452ab00796c7
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
17037
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
1 /*
40057
b06060465f09 maint: Run 'make update-copyright'
Paul Eggert <eggert@cs.ucla.edu>
parents: 39823
diff changeset
2 * Copyright (C) 2012-2019 Free Software Foundation, Inc.
17037
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
3 *
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
4 * This program is free software: you can redistribute it and/or modify
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
5 * it under the terms of the GNU General Public License as published by
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
6 * the Free Software Foundation; either version 3 of the License, or
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
7 * (at your option) any later version.
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
8 *
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
9 * This program is distributed in the hope that it will be useful,
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
12 * GNU General Public License for more details.
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
13 *
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
14 * You should have received a copy of the GNU General Public License
19190
9759915b2aca all: prefer https: URLs
Paul Eggert <eggert@cs.ucla.edu>
parents: 18626
diff changeset
15 * along with this program. If not, see <https://www.gnu.org/licenses/>. */
17037
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
16
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
17 /* Written by Eric Blake. */
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
18
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
19 #include <config.h>
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
20
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
21 #include "count-leading-zeros.h"
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
22
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
23 #include <limits.h>
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
24 #include <stdio.h>
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
25
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
26 #include "macros.h"
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
27
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
28 #define UINT_BIT (sizeof (unsigned int) * CHAR_BIT)
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
29 #define ULONG_BIT (sizeof (unsigned long int) * CHAR_BIT)
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
30 #define ULLONG_BIT (sizeof (unsigned long long int) * CHAR_BIT)
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
31
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
32 int
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
33 main (int argc, char *argv[])
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
34 {
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
35 int i, j;
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
36
40214
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
37 #define TEST_COUNT_LEADING_ZEROS(FUNC, TYPE, BITS, MAX, ONE) \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
38 ASSERT (FUNC (0) == BITS); \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
39 for (i = 0; i < BITS; i++) \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
40 { \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
41 ASSERT (FUNC (ONE << i) == BITS - i - 1); \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
42 for (j = 0; j < i; j++) \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
43 ASSERT (FUNC ((ONE << i) | (ONE << j)) == BITS - i - 1); \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
44 } \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
45 for (i = 0; i < 1000; i++) \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
46 { \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
47 /* RAND_MAX is most often 0x7fff or 0x7fffffff. */ \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
48 TYPE value = \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
49 (RAND_MAX <= 0xffff \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
50 ? ((TYPE) rand () >> 3) \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
51 ^ (((TYPE) rand () >> 3) << 12) \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
52 ^ (((TYPE) rand () >> 3) << 24) \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
53 ^ (((TYPE) rand () >> 3) << 30 << 6) \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
54 ^ (((TYPE) rand () >> 3) << 30 << 18) \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
55 ^ (((TYPE) rand () >> 3) << 30 << 30) \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
56 : ((TYPE) rand () >> 3) \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
57 ^ (((TYPE) rand () >> 3) << 22) \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
58 ^ (((TYPE) rand () >> 3) << 22 << 22)); \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
59 int count = 0; \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
60 for (j = 0; j < BITS; j++) \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
61 if (value & (ONE << j)) \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
62 count = BITS - j - 1; \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
63 ASSERT (count == FUNC (value)); \
452ab00796c7 Fix undefined behaviour.
Bruno Haible <bruno@clisp.org>
parents: 40057
diff changeset
64 } \
17037
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
65 ASSERT (FUNC (MAX) == 0);
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
66
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
67 TEST_COUNT_LEADING_ZEROS (count_leading_zeros, unsigned int,
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
68 UINT_BIT, UINT_MAX, 1U);
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
69 TEST_COUNT_LEADING_ZEROS (count_leading_zeros_l, unsigned long int,
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
70 ULONG_BIT, ULONG_MAX, 1UL);
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
71 #ifdef HAVE_UNSIGNED_LONG_LONG_INT
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
72 TEST_COUNT_LEADING_ZEROS (count_leading_zeros_ll, unsigned long long int,
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
73 ULLONG_BIT, ULLONG_MAX, 1ULL);
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
74 #endif
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
75
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
76 return 0;
abd788a78228 count-leading-zeros: new module
Eric Blake <eblake@redhat.com>
parents:
diff changeset
77 }