URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gcc.dg/] [fixed-point/] [func-struct.c] - Rev 298
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-do run } */ /* { dg-options "-std=gnu99" } */ /* C99 6.5.2.2 Function calls. Test structure passing and return values involving fixed-point types. Based on the test from ../dfp/. */ extern void abort (void); struct example { short _Fract sf; char dummy1; _Fract f; char dummy2; long _Fract lf; char dummy3; long long _Fract llf; char dummy4; unsigned short _Fract usf; char dummy5; unsigned _Fract uf; char dummy6; unsigned long _Fract ulf; char dummy7; unsigned long long _Fract ullf; char dummy8; _Sat short _Fract Ssf; char dummy9; _Sat _Fract Sf; char dummy10; _Sat long _Fract Slf; char dummy11; _Sat long long _Fract Sllf; char dummy12; _Sat unsigned short _Fract Susf; char dummy13; _Sat unsigned _Fract Suf; char dummy14; _Sat unsigned long _Fract Sulf; char dummy15; _Sat unsigned long long _Fract Sullf; char dummy16; short _Accum sa; char dummya1; _Accum a; char dummya2; long _Accum la; char dummya3; long long _Accum lla; char dummya4; unsigned short _Accum usa; char dummya5; unsigned _Accum ua; char dummya6; unsigned long _Accum ula; char dummya7; unsigned long long _Accum ulla; char dummya8; _Sat short _Accum Ssa; char dummya9; _Sat _Accum Sa; char dummya10; _Sat long _Accum Sla; char dummya11; _Sat long long _Accum Slla; char dummya12; _Sat unsigned short _Accum Susa; char dummya13; _Sat unsigned _Accum Sua; char dummya14; _Sat unsigned long _Accum Sula; char dummya15; _Sat unsigned long long _Accum Sulla; char dummya16; } nums = { 0.1hr, 'a', 0.2r, 'b', 0.3lr, 'c', 0.4llr, 'd', 0.5uhr, 'e', 0.6ur, 'f', 0.7ulr, 'g', 0.8ullr, 'h', 0.11r, 'i', 0.22r, 'j', 0.33lr, 'k', 0.44llr, 'l', 0.55uhr, 'm', 0.66ur, 'n', 0.77ulr, 'o', 0.88ullr, 'p', 0.1hk, 'q', 0.2k, 'r', 0.3lk, 's', 0.4llk, 't', 0.5uhk, 'u', 0.6uk, 'v', 0.7ulk, 'w', 0.8ullk, 'x', 0.11k, 'y', 0.22k, 'z', 0.33lk, '0', 0.44llk, '1', 0.55uhk, '2', 0.66uk, '3', 0.77ulk, '4', 0.88ullk, '5' }; /* A handful of functions that return the Nth argument of an incoming array. */ #define FUNC(TYPE,NAME) \ TYPE NAME ## _func (struct example s) \ { return s. NAME; } FUNC (short _Fract, sf) FUNC (_Fract, f) FUNC (long _Fract, lf) FUNC (long long _Fract, llf) FUNC (unsigned short _Fract, usf) FUNC (unsigned _Fract, uf) FUNC (unsigned long _Fract, ulf) FUNC (unsigned long long _Fract, ullf) FUNC (_Sat short _Fract, Ssf) FUNC (_Sat _Fract, Sf) FUNC (_Sat long _Fract, Slf) FUNC (_Sat long long _Fract, Sllf) FUNC (_Sat unsigned short _Fract, Susf) FUNC (_Sat unsigned _Fract, Suf) FUNC (_Sat unsigned long _Fract, Sulf) FUNC (_Sat unsigned long long _Fract, Sullf) FUNC (short _Accum, sa) FUNC (_Accum, a) FUNC (long _Accum, la) FUNC (long long _Accum, lla) FUNC (unsigned short _Accum, usa) FUNC (unsigned _Accum, ua) FUNC (unsigned long _Accum, ula) FUNC (unsigned long long _Accum, ulla) FUNC (_Sat short _Accum, Ssa) FUNC (_Sat _Accum, Sa) FUNC (_Sat long _Accum, Sla) FUNC (_Sat long long _Accum, Slla) FUNC (_Sat unsigned short _Accum, Susa) FUNC (_Sat unsigned _Accum, Sua) FUNC (_Sat unsigned long _Accum, Sula) FUNC (_Sat unsigned long long _Accum, Sulla) int main() { #define TEST(TYPE,NAME,VALUE) \ { \ if (NAME ## _func (nums) != VALUE) abort (); \ } TEST (short _Fract, sf, 0.1hr) TEST (_Fract, f, 0.2r) TEST (long _Fract, lf, 0.3lr) TEST (long long _Fract, llf, 0.4llr) TEST (unsigned short _Fract, usf, 0.5uhr) TEST (unsigned _Fract, uf, 0.6ur) TEST (unsigned long _Fract, ulf, 0.7ulr) TEST (unsigned long long _Fract, ullf, 0.8ullr) TEST (_Sat short _Fract, Ssf, 0.11hr) TEST (_Sat _Fract, Sf, 0.22r) TEST (_Sat long _Fract, Slf, 0.33lr) TEST (_Sat long long _Fract, Sllf, 0.44llr) TEST (_Sat unsigned short _Fract, Susf, 0.55uhr) TEST (_Sat unsigned _Fract, Suf, 0.66ur) TEST (_Sat unsigned long _Fract, Sulf, 0.77ulr) TEST (_Sat unsigned long long _Fract, Sullf, 0.88ullr) TEST (short _Accum, sa, 0.1hk) TEST (_Accum, a, 0.2k) TEST (long _Accum, la, 0.3lk) TEST (long long _Accum, lla, 0.4llk) TEST (unsigned short _Accum, usa, 0.5uhk) TEST (unsigned _Accum, ua, 0.6uk) TEST (unsigned long _Accum, ula, 0.7ulk) TEST (unsigned long long _Accum, ulla, 0.8ullk) TEST (_Sat short _Accum, Ssa, 0.11hk) TEST (_Sat _Accum, Sa, 0.22k) TEST (_Sat long _Accum, Sla, 0.33lk) TEST (_Sat long long _Accum, Slla, 0.44llk) TEST (_Sat unsigned short _Accum, Susa, 0.55uhk) TEST (_Sat unsigned _Accum, Sua, 0.66uk) TEST (_Sat unsigned long _Accum, Sula, 0.77ulk) TEST (_Sat unsigned long long _Accum, Sulla, 0.88ullk) return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log