OSDN Git Service

PR fortran/46402
[pf3gnuchains/gcc-fork.git] / libquadmath / math / nanq.c
1 #include "quadmath-imp.h"
2
3 __float128
4 nanq (const char *tagp __attribute__ ((unused)))
5 {
6   // FIXME -- we should use the argument
7   ieee854_float128 f;
8   f.ieee.exponent = 0x7fff;
9   f.ieee.mant_high = 0x1;
10   return f.value;
11 }