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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [dfp/] [cast.c] - Blame information for rev 823

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


/* { dg-options "-std=gnu99" } */
 
/* C99 6.5.4 Cast operators.
   Test valid casts involving decimal float.  */
 
extern void abort (void);
 
_Decimal32 d32;
_Decimal64 d64;
_Decimal128 d128;
 
static float f = 2.f;
static double d = 2.l;
 
int
main (void)
{
  /* Casts between DFP types.  */
  d32 = 1.2df;
  d64 = 1.2dd;
  d128 = 1.2dl;
 
  if (d32 != (_Decimal32) d64)
    abort ();
  if (d32 != (_Decimal32) d128)
    abort ();
 
  if (d64 != (_Decimal64) d32)
    abort ();
  if (d64 != (_Decimal64) d128)
    abort ();
 
  if (d128 != (_Decimal128) d32)
    abort ();
  if (d128 != (_Decimal128) d64)
    abort ();
 
  /* Casts between generic and decimal floating point types.  Use a
     value that we can assume can be represented exactly in all
     representations. */
 
  d32 = 2.0df;
  d64 = 2.0dd;
  d128 = 2.0dl;
 
  /* To generic floating types.  */
  if ((float) d32 != 2.0f)
    abort ();
  if ((double) d32 != 2.0l)
    abort ();
  if ((float) d64 != 2.0f)
    abort ();
  if ((double) d64 != 2.0l)
    abort ();
  if ((float) d128 != 2.0f)
    abort ();
  if ((double) d128 != 2.0l)
    abort ();
 
  /* float to decimal floating types.  */
  if (d32 != (_Decimal32) f)
    abort ();
  if (d64 != (_Decimal64) f)
    abort ();
  if (d128 != (_Decimal128) f)
    abort ();
 
  /* double to decimal floating types.  */
  if (d32 != (_Decimal32) d)
    abort ();
  if (d64 != (_Decimal64) d)
    abort ();
  if (d128 != (_Decimal128) d)
    abort ();
 
  return 0;
}

Line No.	Rev	Author	Line
1	149	jeremybenn	`/* { dg-options "-std=gnu99" } */`
2
3			`/* C99 6.5.4 Cast operators.`
4			`Test valid casts involving decimal float. */`
5
6			`extern void abort (void);`
7
8			`_Decimal32 d32;`
9			`_Decimal64 d64;`
10			`_Decimal128 d128;`
11
12			`static float f = 2.f;`
13			`static double d = 2.l;`
14
15			`int`
16			`main (void)`
17			`{`
18			`/* Casts between DFP types. */`
19			`d32 = 1.2df;`
20			`d64 = 1.2dd;`
21			`d128 = 1.2dl;`
22
23			`if (d32 != (_Decimal32) d64)`
24			`abort ();`
25			`if (d32 != (_Decimal32) d128)`
26			`abort ();`
27
28			`if (d64 != (_Decimal64) d32)`
29			`abort ();`
30			`if (d64 != (_Decimal64) d128)`
31			`abort ();`
32
33			`if (d128 != (_Decimal128) d32)`
34			`abort ();`
35			`if (d128 != (_Decimal128) d64)`
36			`abort ();`
37
38			`/* Casts between generic and decimal floating point types. Use a`
39			`value that we can assume can be represented exactly in all`
40			`representations. */`
41
42			`d32 = 2.0df;`
43			`d64 = 2.0dd;`
44			`d128 = 2.0dl;`
45
46			`/* To generic floating types. */`
47			`if ((float) d32 != 2.0f)`
48			`abort ();`
49			`if ((double) d32 != 2.0l)`
50			`abort ();`
51			`if ((float) d64 != 2.0f)`
52			`abort ();`
53			`if ((double) d64 != 2.0l)`
54			`abort ();`
55			`if ((float) d128 != 2.0f)`
56			`abort ();`
57			`if ((double) d128 != 2.0l)`
58			`abort ();`
59
60			`/* float to decimal floating types. */`
61			`if (d32 != (_Decimal32) f)`
62			`abort ();`
63			`if (d64 != (_Decimal64) f)`
64			`abort ();`
65			`if (d128 != (_Decimal128) f)`
66			`abort ();`
67
68			`/* double to decimal floating types. */`
69			`if (d32 != (_Decimal32) d)`
70			`abort ();`
71			`if (d64 != (_Decimal64) d)`
72			`abort ();`
73			`if (d128 != (_Decimal128) d)`
74			`abort ();`
75
76			`return 0;`
77			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [dfp/] [cast.c] - Blame information for rev 823