URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [dfp/] [composite-type.c] - Rev 154
Compare with Previous | Blame | View Log
/* { dg-do compile } */ /* { dg-options "-std=gnu99 -O -Wall" } */ /* C99 6.2.7: Compatible type and composite type. */ #define DECIMAL_COMPOSITE_DECL(TYPE) \ _Decimal##TYPE g1_##TYPE(); \ _Decimal##TYPE g2_##TYPE(); \ _Decimal##TYPE (*h1_##TYPE)[2]; \ _Decimal##TYPE (*h2_##TYPE)[3]; \ _Decimal##TYPE (*h3_##TYPE)[4]; \ _Decimal##TYPE f1_##TYPE(_Decimal##TYPE(*)()); \ _Decimal##TYPE f1_##TYPE(_Decimal##TYPE(*)(_Decimal##TYPE*)); \ _Decimal##TYPE f1_##TYPE (_Decimal##TYPE(*g)(_Decimal##TYPE*)) \ { \ _Decimal##TYPE d##TYPE; \ d##TYPE = ((_Decimal##TYPE (*) (_Decimal##TYPE*)) g)(&d##TYPE); \ d##TYPE = ((_Decimal##TYPE (*) ()) g); \ return d##TYPE; \ } \ _Decimal##TYPE f2_##TYPE(_Decimal##TYPE(*)[]); \ _Decimal##TYPE f2_##TYPE(_Decimal##TYPE(*)[3]); #define DECIMAL_COMPOSITE_TEST(TYPE) \ do \ { \ _Decimal##TYPE d##TYPE; \ d##TYPE = f1_##TYPE(g1_##TYPE); \ d##TYPE = f1_##TYPE(g2_##TYPE); \ d##TYPE = f2_##TYPE(h1_##TYPE); \ d##TYPE = f2_##TYPE(h2_##TYPE); \ d##TYPE = f2_##TYPE(h3_##TYPE); \ } while(0) DECIMAL_COMPOSITE_DECL(32); /* { dg-error "incompatible types in assignment" } */ DECIMAL_COMPOSITE_DECL(64); /* { dg-error "incompatible types in assignment" } */ DECIMAL_COMPOSITE_DECL(128); /* { dg-error "incompatible types in assignment" } */ int main() { DECIMAL_COMPOSITE_TEST(32); /* { dg-warning "incompatible pointer type" } */ DECIMAL_COMPOSITE_TEST(64); /* { dg-warning "incompatible pointer type" } */ DECIMAL_COMPOSITE_TEST(128); /* { dg-warning "incompatible pointer type" } */ return 0; }