OpenCores
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-18_x.c] - Blame information for rev 708

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

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(cld, _Complex long double)
9
CHECKS(cld, _Complex long double)
10
 
11
TEST(Scld1, _Complex long double)
12
TEST(Scld2, _Complex long double)
13
TEST(Scld3, _Complex long double)
14
TEST(Scld4, _Complex long double)
15
TEST(Scld5, _Complex long double)
16
TEST(Scld6, _Complex long double)
17
TEST(Scld7, _Complex long double)
18
TEST(Scld8, _Complex long double)
19
TEST(Scld9, _Complex long double)
20
TEST(Scld10, _Complex long double)
21
TEST(Scld11, _Complex long double)
22
TEST(Scld12, _Complex long double)
23
#endif
24
 
25
#undef T
26
 
27
void
28
struct_by_value_18_x ()
29
{
30
DEBUG_INIT
31
 
32
#define T(TYPE, MTYPE) testit##TYPE ();
33
 
34
#ifndef SKIP_COMPLEX
35
T(Scld1, _Complex long double)
36
T(Scld2, _Complex long double)
37
T(Scld3, _Complex long double)
38
T(Scld4, _Complex long double)
39
T(Scld5, _Complex long double)
40
T(Scld6, _Complex long double)
41
T(Scld7, _Complex long double)
42
T(Scld8, _Complex long double)
43
T(Scld9, _Complex long double)
44
T(Scld10, _Complex long double)
45
T(Scld11, _Complex long double)
46
T(Scld12, _Complex long double)
47
#endif
48
 
49
DEBUG_FINI
50
 
51
if (fails != 0)
52
  abort ();
53
 
54
#undef T
55
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.