* configure.in: Add `-lm' when checking for libgd.
[kopensolaris-gnu/glibc.git] / malloc / tst-calloc.c
1 /* Copyright (C) 2000 Free Software Foundation, Inc.
2    This file is part of the GNU C Library.
3    Contributed by Ulrich Drepper <drepper@redhat.com>.
4
5    The GNU C Library is free software; you can redistribute it and/or
6    modify it under the terms of the GNU Library General Public License as
7    published by the Free Software Foundation; either version 2 of the
8    License, or (at your option) any later version.
9
10    The GNU C Library 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 GNU
13    Library General Public License for more details.
14
15    You should have received a copy of the GNU Library General Public
16    License along with the GNU C Library; see the file COPYING.LIB.  If not,
17    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18    Boston, MA 02111-1307, USA.  */
19
20 #include <errno.h>
21 #include <error.h>
22 #include <malloc.h>
23 #include <stdlib.h>
24 #include <stdio.h>
25
26
27 /* Number of samples per size.  */
28 #define N 50000
29
30
31 static void
32 fixed_test (int size)
33 {
34   char *ptrs[N];
35   int i;
36
37   for (i = 0; i < N; ++i)
38     {
39       int j;
40
41       ptrs[i] = (char *) calloc (1, size);
42
43       if (ptrs[i] == NULL)
44         break;
45
46       for (j = 0; j < size; ++j)
47         {
48           if (ptrs[i][j] != '\0')
49             error (EXIT_FAILURE, 0,
50                    "byte not cleared (size %d, element %d, byte %d)",
51                    size, i, j);
52           ptrs[i][j] = '\xff';
53         }
54     }
55
56   while (i-- > 0)
57     free (ptrs[i]);
58 }
59
60
61 static void
62 random_test (void)
63 {
64   char *ptrs[N];
65   int i;
66
67   for (i = 0; i < N; ++i)
68     {
69       int j;
70       int n = 1 + random () % 10;
71       int elem = 1 + random () % 100;
72       int size = n * elem;
73
74       ptrs[i] = (char *) calloc (n, elem);
75
76       if (ptrs[i] == NULL)
77         break;
78
79       for (j = 0; j < size; ++j)
80         {
81           if (ptrs[i][j] != '\0')
82             error (EXIT_FAILURE, 0,
83                    "byte not cleared (size %d, element %d, byte %d)",
84                    size, i, j);
85           ptrs[i][j] = '\xff';
86         }
87     }
88
89   while (i-- > 0)
90     free (ptrs[i]);
91 }
92
93
94 int
95 main (void)
96 {
97   /* We are allocating blocks with `calloc' and check whether every
98      block is completely cleared.  We first try this for some fixed
99      times and then with random size.  */
100   fixed_test (15);
101   fixed_test (5);
102   fixed_test (17);
103   fixed_test (6);
104   fixed_test (31);
105   fixed_test (96);
106
107   random_test ();
108
109   return 0;
110 }