]> git.ipfire.org Git - thirdparty/gcc.git/blob - boehm-gc/testsuite/boehm-gc.c/middle.c
re PR target/78594 (Bug in November 11th, 2016 change to rs6000.md)
[thirdparty/gcc.git] / boehm-gc / testsuite / boehm-gc.c / middle.c
1 /*
2 * Test at the boundary between small and large objects.
3 * Inspired by a test case from Zoltan Varga.
4 */
5 #include <gc.h>
6 #include <stdio.h>
7
8 int main ()
9 {
10 int i;
11
12 GC_all_interior_pointers = 0;
13
14 for (i = 0; i < 20000; ++i) {
15 GC_malloc_atomic (4096);
16 GC_malloc (4096);
17 }
18 for (i = 0; i < 20000; ++i) {
19 GC_malloc_atomic (2048);
20 GC_malloc (2048);
21 }
22 printf("Final heap size is %ld\n", GC_get_heap_size());
23 return 0;
24 }
25