URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [compat/] [struct-by-value-17a_x.c] - Blame information for rev 708

Go to most recent revision | Details | Compare with Previous | View Log


#include "compat-common.h"
 
#include "fp-struct-defs.h"
#include "fp-struct-check.h"
#include "fp-struct-test-by-value-x.h"
 
#ifndef SKIP_COMPLEX
DEFS(cd, _Complex double)
CHECKS(cd, _Complex double)
 
TEST(Scd13, _Complex double)
TEST(Scd14, _Complex double)
TEST(Scd15, _Complex double)
TEST(Scd16, _Complex double)
#endif
 
#undef T
 
void
struct_by_value_17a_x ()
{
DEBUG_INIT
 
#define T(TYPE, MTYPE) testit##TYPE ();
 
#ifndef SKIP_COMPLEX
T(Scd13, _Complex double)
T(Scd14, _Complex double)
T(Scd15, _Complex double)
T(Scd16, _Complex double)
#endif
 
DEBUG_FINI
 
if (fails != 0)
  abort ();
 
#undef T
}

Line No.	Rev	Author	Line
1	689	jeremybenn	`#include "compat-common.h"`
2
3			`#include "fp-struct-defs.h"`
4			`#include "fp-struct-check.h"`
5			`#include "fp-struct-test-by-value-x.h"`
6
7			`#ifndef SKIP_COMPLEX`
8			`DEFS(cd, _Complex double)`
9			`CHECKS(cd, _Complex double)`
10
11			`TEST(Scd13, _Complex double)`
12			`TEST(Scd14, _Complex double)`
13			`TEST(Scd15, _Complex double)`
14			`TEST(Scd16, _Complex double)`
15			`#endif`
16
17			`#undef T`
18
19			`void`
20			`struct_by_value_17a_x ()`
21			`{`
22			`DEBUG_INIT`
23
24			`#define T(TYPE, MTYPE) testit##TYPE ();`
25
26			`#ifndef SKIP_COMPLEX`
27			`T(Scd13, _Complex double)`
28			`T(Scd14, _Complex double)`
29			`T(Scd15, _Complex double)`
30			`T(Scd16, _Complex double)`
31			`#endif`
32
33			`DEBUG_FINI`
34
35			`if (fails != 0)`
36			`abort ();`
37
38			`#undef T`
39			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [compat/] [struct-by-value-17a_x.c] - Blame information for rev 708