]> git.ipfire.org Git - thirdparty/gcc.git/blob - gcc/testsuite/gcc.dg/Walloca-larger-than.c
284601d22ff8d6d3175dde76ee89d4df8248374e
[thirdparty/gcc.git] / gcc / testsuite / gcc.dg / Walloca-larger-than.c
1 /* PR middle-end/82063 - issues with arguments enabled by -Wall
2 { dg-do compile }
3 { dg-options "-O2 -Walloca-larger-than=0 -Wvla-larger-than=0 -ftrack-macro-expansion=0" } */
4
5 extern void* alloca (__SIZE_TYPE__);
6
7 void sink (void*);
8
9 #define T(x) sink (x)
10
11 void test_alloca (void)
12 {
13 /* Verify that alloca(0) is diagnosed even if the limit is zero. */
14 T (alloca (0)); /* { dg-warning "argument to .alloca. is zero" } */
15 T (alloca (1)); /* { dg-warning "argument to .alloca. is too large" } */
16 }
17
18 void test_vla (unsigned n)
19 {
20 /* VLAs smaller than 32 bytes are optimized into ordinary arrays. */
21 if (n < 1 || 99 < n)
22 n = 1;
23
24 char a[n]; /* { dg-warning "argument to variable-length array " } */
25 T (a);
26 }