| /* PR middle-end/82608 - missing -Warray-bounds on an out-of-bounds VLA index |
| { dg-do compile } |
| { dg-options "-O2 -Wall -Wno-uninitialized -ftrack-macro-expansion=0" } |
| { dg-require-effective-target alloca } */ |
| |
| #include "range.h" |
| |
| typedef __INT16_TYPE__ int16_t; |
| |
| #define alloca(n) __builtin_alloca (n) |
| |
| void* calloc (size_t, size_t); |
| void* malloc (size_t); |
| |
| void sink (void*, ...); |
| #define sink(...) sink (0, __VA_ARGS__) |
| |
| #define T(x) (sink (x)) |
| |
| __attribute__ ((alloc_size (1))) void* alloc (size_t); |
| |
| |
| void test_alloca_cst (void) |
| { |
| { |
| char *p = alloca (1); |
| sink (p); |
| T (p[0]); |
| T (p[1]); // { dg-warning "subscript 1 is outside array bounds of 'char\\\[1\\\]'" } |
| } |
| |
| { |
| char *p = alloca (2); |
| sink (p); |
| T (p[0]), T (p[1]); |
| T (p[2]); // { dg-warning "subscript 2 is outside array bounds of 'char\\\[2\\\]'" } |
| } |
| |
| { |
| char *p = alloca (3); |
| sink (p); |
| T (p[0]), T (p[1]), T (p[2]); |
| T (p[3]); // { dg-warning "subscript 3 is outside array bounds of 'char\\\[3\\\]'" } |
| } |
| } |
| |
| |
| void test_alloca_char_range (int i, unsigned n, size_t sz) |
| { |
| { |
| // Be sure to exercise signed as well as unsigned arguments. |
| char *p = alloca (i); |
| sink (p); |
| T (p[0]), T (p[1]), T (p[12345]); |
| T (p[-1]); // { dg-warning "subscript -1 is outside array bounds of 'char\\\[" } |
| } |
| |
| { |
| char *p = alloca (n); |
| sink (p); |
| T (p[0]), T (p[1]), T (p[12345]); |
| T (p[-1]); // { dg-warning "subscript -1 is outside array bounds of 'char\\\[" } |
| } |
| |
| { |
| char *p = alloca (sz); |
| sink (p); |
| T (p[0]), T (p[1]), T (p[23456]); |
| T (p[-1]); // { dg-warning "subscript -1 is outside array bounds of 'char\\\[" } |
| } |
| |
| { |
| char *p = alloca (UR (0, 1)); |
| sink (p); |
| T (p[0]); |
| T (p[1]); // { dg-warning "subscript 1 is outside array bounds of 'char\\\[1\\\]'" } |
| } |
| |
| { |
| char *p = alloca (UR (0, 2)); |
| sink (p); |
| sink (p[0], p[1]); |
| sink (p[2]); // { dg-warning "subscript 2 is outside array bounds of 'char\\\[2\\\]'" } |
| } |
| |
| { |
| char *p = alloca (UR (0, 3)); |
| sink (p); |
| T (p[0]), T (p[1]), T (p[2]); |
| T (p[3]); // { dg-warning "subscript 3 is outside array bounds of 'char\\\[3\\\]'" } |
| } |
| |
| { |
| char *p = alloca (UR (1, 3)); |
| sink (p); |
| T (p[0]), T (p[1]), T (p[2]); |
| T (p[3]); // { dg-warning "subscript 3 is outside array bounds of 'char\\\[3\\\]'" } |
| } |
| |
| { |
| char *p = alloca (UR (2, 3)); |
| sink (p); |
| T (p[0]), T (p[1]), T (p[2]); |
| T (p[3]); // { dg-warning "subscript 3 is outside array bounds of 'char\\\[3\\\]'" } |
| } |
| } |
| |
| |
| void test_alloca_int16_range (unsigned n) |
| { |
| int16_t *p; |
| { |
| p = alloca (n); // { dg-message "allocated by " } |
| sink (p); |
| T (p[0]), T (p[1]), T (p[12345]); |
| T (p[-1]); // { dg-warning "subscript -1 is outside array bounds of 'int16_t\\\[" } |
| } |
| |
| { |
| p = alloca (UR (0, 1)); // { dg-message "object of size between 0 and 1 allocated by '__builtin_alloca'" } |
| sink (p); |
| T (p[0]); // { dg-warning "subscript 'int16_t {aka short int}\\\[0\\\]' is partly outside array bounds of 'unsigned char\\\[1]'" } |
| T (p[1]); // { dg-warning "subscript 1 is outside array bounds of 'int16_t\\\[0]'" } |
| } |
| |
| { |
| p = alloca (UR (0, 2)); // { dg-message "object of size between 0 and 2 allocated by '__builtin_alloca'" } |
| sink (p); |
| sink (p[0]); |
| sink (p[1]); // { dg-warning "subscript 1 is outside array bounds of 'int16_t\\\[1]'" } |
| sink (p[2]); // { dg-warning "subscript 2 is outside array bounds of 'int16_t\\\[1\\\]'" } |
| } |
| |
| { |
| p = alloca (UR (0, 3)); // { dg-message "object of size between 0 and 3 allocated by '__builtin_alloca'" } |
| sink (p); |
| T (p[0]); |
| T (p[1]); // { dg-warning "subscript 'int16_t {aka short int}\\\[1\\\]' is partly outside array bounds of 'unsigned char\\\[3]'" } |
| T (p[2]); // { dg-warning "subscript 2 is outside array bounds of 'int16_t\\\[1\\\]'" } |
| T (p[3]); // { dg-warning "subscript 3 is outside array bounds of 'int16_t\\\[1\\\]'" } |
| } |
| |
| { |
| p = alloca (UR (1, 3)); // { dg-message "object of size between 1 and 3 allocated by '__builtin_alloca'" } |
| sink (p); |
| T (p[0]); |
| T (p[1]); // { dg-warning "subscript 'int16_t {aka short int}\\\[1\\\]' is partly outside array bounds of 'unsigned char\\\[3]'" } |
| T (p[2]); // { dg-warning "subscript 2 is outside array bounds of 'int16_t\\\[1\\\]'" } |
| T (p[3]); // { dg-warning "subscript 3 is outside array bounds of 'int16_t\\\[1\\\]'" } |
| } |
| |
| { |
| p = alloca (UR (2, 3)); // { dg-message "object of size between 2 and 3 allocated by '__builtin_alloca'" } |
| sink (p); |
| T (p[0]); |
| T (p[1]); // { dg-warning "subscript 'int16_t {aka short int}\\\[1\\\]' is partly outside array bounds of 'unsigned char\\\[3]'" } |
| T (p[2]); // { dg-warning "subscript 2 is outside array bounds of 'int16_t\\\[1\\\]'" } |
| T (p[3]); // { dg-warning "subscript 3 is outside array bounds of 'int16_t\\\[1\\\]'" } |
| } |
| |
| { |
| p = alloca (UR (3, 4)); // { dg-message "object of size between 3 and 4 allocated by '__builtin_alloca'" } |
| sink (p); |
| T (p[0]); |
| T (p[1]); |
| T (p[2]); // { dg-warning "subscript 2 is outside array bounds of 'int16_t\\\[2\\\]'" } |
| T (p[3]); // { dg-warning "subscript 3 is outside array bounds of 'int16_t\\\[2\\\]'" } |
| } |
| } |
| |
| |
| void test_vla_cst (void) |
| { |
| int n = 1; |
| { |
| char a[n]; |
| sink (a); |
| T (a[0]); |
| T (a[1]); // { dg-warning "subscript 1 is (above|outside) array bounds " } |
| } |
| |
| { |
| n = 2; |
| char a[n]; |
| sink (a); |
| T (a[0]), T (a[1]); |
| T (a[2]); // { dg-warning "subscript 2 is (above|outside) array bounds " } |
| } |
| |
| { |
| n = 3; |
| char a[n], *p = a; |
| sink (p); |
| T (p[0]), T (p[1]), T (p[2]); |
| T (p[3]); // { dg-warning "subscript 3 is (above|outside) array bounds " } |
| } |
| } |
| |
| |
| void test_vla_char_range (int i, unsigned n, size_t sz) |
| { |
| { |
| char a[i]; |
| sink (a); |
| T (a[0]), T (a[1]), T (a[12345]); |
| T (a[-1]); // { dg-warning "subscript -1 is (below|outside) array bounds of 'char\\\[" } |
| } |
| |
| { |
| char a[n]; |
| sink (a); |
| T (a[0]), T (a[1]), T (a[12345]); |
| T (a[-1]); // { dg-warning "subscript -1 is (below|outside) array bounds of 'char\\\[" } |
| } |
| |
| { |
| char a[sz]; |
| sink (a); |
| T (a[0]), T (a[1]), T (a[23456]); |
| T (a[-1]); // { dg-warning "subscript -1 is (below|outside) array bounds of 'char\\\[" } |
| } |
| |
| { |
| char a[UR (0, 1)]; |
| sink (a); |
| T (a[0]); |
| T (a[1]); // { dg-warning "subscript 1 is outside array bounds of 'char\\\[1\\\]'" "pr82608" { xfail *-*-* } } |
| } |
| |
| { |
| char a[UR (0, 2)]; |
| sink (a); |
| sink (a[0], a[1]); |
| sink (a[2]); // { dg-warning "subscript 2 is outside array bounds of 'char\\\[2\\\]'" "pr82608" { xfail *-*-* } } |
| } |
| |
| { |
| char a[UR (0, 3)]; |
| sink (a); |
| T (a[0]), T (a[1]), T (a[2]); |
| T (a[3]); // { dg-warning "subscript 3 is outside array bounds of 'char\\\[3\\\]'" "pr82608" { xfail *-*-* } } |
| } |
| |
| { |
| char a[UR (1, 3)]; |
| sink (a); |
| T (a[0]), T (a[1]), T (a[2]); |
| T (a[3]); // { dg-warning "subscript 3 is outside array bounds of 'char\\\[3\\\]'" "pr82608" { xfail *-*-* } } |
| } |
| |
| { |
| char a[UR (2, 3)]; |
| sink (a); |
| T (a[0]), T (a[1]), T (a[2]); |
| T (a[3]); // { dg-warning "subscript 3 is outside array bounds of 'char\\\[3\\\]'" "pr82608" { xfail *-*-* } } |
| } |
| } |
