Subversion Repositories openrisc

/* { dg-skip-if "test is for emulation" { hard_dfp } { "*" } { "" } } */

/* Check that appropriate exceptions are raised for conversions involving

   decimal float values.  */

#include "fe-check.h"

volatile _Decimal32 d32;

volatile _Decimal64 d64;

volatile _Decimal128 d128;

/* Conversions between decimal float types should raise an invalid

   exception if the value doesn't fit, either because the value

   is too large or the result can't hold the full precision.  */

CONVERT (100, d64, d32, 9.999999e96DD, 0)

CONVERT (101, d64, d32, 10.000000e96DD, FE_INEXACT|FE_OVERFLOW)

CONVERT (102, d64, d32, 1.1111111DD, FE_INEXACT)

CONVERT (110, d128, d32, 9.999999e96DL, 0)

CONVERT (111, d128, d32, 10.000000e96DL, FE_INEXACT|FE_OVERFLOW)

CONVERT (112, d128, d32, 1.1111111DL, FE_INEXACT)

CONVERT (120, d128, d64, 9.999999999999999E384DL, 0)

CONVERT (121, d128, d64, 10.00000000000000E384DL, FE_INEXACT|FE_OVERFLOW)

CONVERT (122, d128, d64, 1.1111111111111111DL, FE_INEXACT)

int

main ()

{

  convert_100 ();

  convert_101 ();

  convert_102 ();

  convert_110 ();

  convert_111 ();

  convert_112 ();

  convert_120 ();

  convert_121 ();

  convert_122 ();

  FINISH

}