Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.dg/cleanup-1.c @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* { dg-do compile } */ /* { dg-options "-Wall" } */ /* Validate expected warnings and errors. */ #define U __attribute__((unused)) #define C(x) __attribute__((cleanup(x))) static int f1(void *x U) { return 0; } static void f2() { } static void f3(void) { } /* { dg-message "note: declared here" } */ static void f4(void *x U) { } static void f5(int *x U) { } static void f6(double *x U) { } /* { dg-message "note: expected '\[^\n'\]*' but argument is of type '\[^\n'\]*'" "note: expected" } */ static void f7(const int *x U) { } static void f8(const int *x U, int y U) { } /* { dg-message "note: declared here" } */ static void f9(int x U) { } /* { dg-message "note: expected '\[^\n'\]*' but argument is of type '\[^\n'\]*'" "note: expected" } */ void test(void) { int o1 C(f1); int o2 C(f2); int o3 C(f3); /* { dg-error "too many arguments" } */ int o4 C(f4); int o5 C(f5); int o6 C(f6); /* { dg-warning "incompatible pointer type" } */ int o7 C(f7); int o8 C(f8); /* { dg-error "too few arguments" } */ int o9 C(f9); /* { dg-warning "from pointer without a cast" } */ int o10 U C(undef); /* { dg-error "not a function" } */ int o11 U C(o1); /* { dg-error "not a function" } */ int o12 U C("f1"); /* { dg-error "not an identifier" } */ static int o13 U C(f1); /* { dg-warning "attribute ignored" } */ } int o14 C(f1); /* { dg-warning "attribute ignored" } */ void t15(int o U C(f1)) {} /* { dg-warning "attribute ignored" } */