none/tests/s390x/bfp-4.c

   1 #include <stdio.h>
   2
   3 static const char *const cmp_result_str[] = {
   4    "==", "<", ">", "??"
   5 };
   6
   7 #define TEST_CxB(insn, fmt, mode, v1, v2)        \
   8    do {                                          \
   9       int cc;                                    \
  10                                                  \
  11       __asm__ volatile(insn " %[r1],%[r2]\n\t"       \
  12                        "ipm   %[psw]\n\t"            \
  13                        "srl   %[psw],28\n\t"         \
  14                        : [psw]"=d"(cc)               \
  15                        : [r1]"f"(v1), [r2]mode(v2)   \
  16                        : "cc");                      \
  17       printf("%-6s" fmt " %s " fmt "\n",             \
  18              insn ":", v1, cmp_result_str[cc], v2);  \
  19    } while (0)
  20
  21 /* Test BFP comparison for 32/64/128-bit. */
  22
  23 static void cebr(float a, float b)
  24 {
  25    TEST_CxB("cebr", "%g", "f", a, b);
  26 }
  27
  28 static void ceb(float a, float b)
  29 {
  30    TEST_CxB("ceb", "%g", "R", a, b);
  31 }
  32
  33 static void cdbr(double a, double b)
  34 {
  35    TEST_CxB("cdbr", "%g", "f", a, b);
  36 }
  37
  38 static void cdb(double a, double b)
  39 {
  40    TEST_CxB("cdb", "%g", "R", a, b);
  41 }
  42
  43 static void cxbr(long double a, long double b)
  44 {
  45    TEST_CxB("cxbr", "%Lg", "f", a, b);
  46 }
  47
  48 static void kebr(float a, float b)
  49 {
  50    TEST_CxB("kebr", "%g", "f", a, b);
  51 }
  52
  53 static void keb(float a, float b)
  54 {
  55    TEST_CxB("keb", "%g", "R", a, b);
  56 }
  57
  58 static void kdbr(double a, double b)
  59 {
  60    TEST_CxB("kdbr", "%g", "f", a, b);
  61 }
  62
  63 static void kdb(double a, double b)
  64 {
  65    TEST_CxB("kdb", "%g", "R", a, b);
  66 }
  67
  68 static void kxbr(long double a, long double b)
  69 {
  70    TEST_CxB("kxbr", "%Lg", "f", a, b);
  71 }
  72
  73 static void do_compare(float a, float b)
  74 {
  75    cebr(a, b);
  76    ceb(a, b);
  77    kebr(a, b);
  78    keb(a, b);
  79    cdbr((double) a, (double) b);
  80    cdb((double) a, (double) b);
  81    kdbr((double) a, (double) b);
  82    kdb((double) a, (double) b);
  83    cxbr((long double) a, (long double) b);
  84    kxbr((long double) a, (long double) b);
  85 }
  86
  87 int main(void)
  88 {
  89    float inf = 1.f / 0.;
  90    float neg_inf = -1.f / 0.;
  91
  92    do_compare(3.14f, 3.14f);
  93    do_compare(-2.78f, 2.78f);
  94    do_compare(inf, inf);
  95    do_compare(inf, neg_inf);
  96    do_compare(neg_inf, neg_inf);
  97    do_compare(inf, 1.f);
  98    do_compare(neg_inf, -1.f);
  99    do_compare(1.f / inf, -1.f / inf);
 100    return 0;
 101 }