Changeset da0e045 in rtems


Ignore:
Timestamp:
May 22, 2012, 8:59:04 AM (8 years ago)
Author:
Sebastian Huber <sebastian.huber@…>
Children:
a61fc251
Parents:
f0a7f52 (diff), 6a5bd1c (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.
Message:

Merge branch 'upstream'

Location:
testsuites/libtests
Files:
2 added
2 deleted
11 edited

Legend:

Unmodified
Added
Removed
  • testsuites/libtests/complex/Makefile.am

    rf0a7f52 rda0e045  
    33complex_SOURCES = init.c docomplex.c docomplexf.c docomplexl.c
    44endif
    5 EXTRA_DIST = docomplex.in
    65
    76# FIXME: Skip long double, not yet supported in newlib
    87complex_CPPFLAGS = $(AM_CPPFLAGS) -DNO_LONG_DOUBLE
    9 
    10 docomplex.c: $(srcdir)/docomplex.in
    11         sed -e 's,[@]FTYPE[@],double,' \
    12         -e 's,[@]FSUFFIX[@], ,g' \
    13         -e 's,[@]FGUARD[@],NO_DOUBLE,' \
    14         $(srcdir)/docomplex.in > $(srcdir)/docomplex.c
    15 
    16 docomplexf.c: $(srcdir)/docomplex.in
    17         sed -e 's,[@]FTYPE[@],float,' \
    18         -e 's,[@]FSUFFIX[@],f,g' \
    19         -e 's,[@]FGUARD[@],NO_FLOAT,' \
    20         $(srcdir)/docomplex.in > $(srcdir)/docomplexf.c
    21 
    22 docomplexl.c: $(srcdir)/docomplex.in
    23         sed -e 's,[@]FTYPE[@],long double,' \
    24         -e 's,[@]FSUFFIX[@],l,g' \
    25         -e 's,%f,%Lf,g' \
    26         -e 's,[@]FGUARD[@],NO_LONG_DOUBLE,' \
    27         $(srcdir)/docomplex.in > $(srcdir)/docomplexl.c
    288
    299dist_rtems_tests_DATA = complex.scn
  • testsuites/libtests/complex/docomplex.c

    rf0a7f52 rda0e045  
    1212
    1313#ifdef HAVE_CONFIG_H
    14 #include "config.h"
     14  #include "config.h"
    1515#endif
    1616
    17 #include <complex.h>
    18 #include <stdio.h>
     17#ifdef NO_DOUBLE
     18  #define PROVIDE_EMPTY_FUNC
     19#endif
    1920
    20 extern void docomplex  (void);
     21#define FTYPE double
     22#define PRI "%f"
    2123
    22 void
    23 docomplex  (void)
    24 {
    25 #ifndef NO_DOUBLE
    26   complex double ca, cb, cc;
    27   double f1;
    28 
    29   ca = 1.0 + 1.0 * I;
    30   cb = 1.0 - 1.0 * I;
    31 
    32   f1 = cabs  (ca);
    33   fprintf (stdout, "cabs   : %f\n", f1);
    34 
    35   cc = cacos  (ca);
    36   fprintf (stdout, "cacos  : %f %fi\n", creal  (cc),
    37            cimag  (cc));
    38 
    39   cc = cacosh  (ca);
    40   fprintf (stdout, "cacosh : %f %fi\n", creal  (cc),
    41            cimag  (cc));
    42 
    43   f1 = carg  (ca);
    44   fprintf (stdout, "carg   : %f\n", f1);
    45 
    46   cc = casin  (ca);
    47   fprintf (stdout, "casin  : %f %fi\n", creal  (cc),
    48            cimag  (cc));
    49 
    50   cc = casinh  (ca);
    51   fprintf (stdout, "casinh : %f %fi\n", creal  (cc),
    52            cimag  (cc));
    53 
    54   cc = catan  (ca);
    55   fprintf (stdout, "catan  : %f %fi\n", creal  (cc),
    56            cimag  (cc));
    57 
    58   cc = catanh  (ca);
    59   fprintf (stdout, "catanh : %f %fi\n", creal  (cc),
    60            cimag  (cc));
    61 
    62   cc = ccos  (ca);
    63   fprintf (stdout, "ccos   : %f %fi\n", creal  (cc),
    64            cimag  (cc));
    65 
    66   cc = ccosh  (ca);
    67   fprintf (stdout, "ccosh  : %f %fi\n", creal  (cc),
    68            cimag  (cc));
    69 
    70   cc = cexp  (ca);
    71   fprintf (stdout, "cexp   : %f %fi\n", creal  (cc),
    72            cimag  (cc));
    73 
    74   f1 = cimag  (ca);
    75   fprintf (stdout, "cimag  : %f\n", f1);
    76 
    77   cc = clog  (ca);
    78   fprintf (stdout, "clog   : %f %fi\n", creal  (cc),
    79            cimag  (cc));
    80 
    81   cc = conj  (ca);
    82   fprintf (stdout, "conj   : %f %fi\n", creal  (cc),
    83            cimag  (cc));
    84 
    85   cc = cpow  (ca, cb);
    86   fprintf (stdout, "cpow   : %f %fi\n", creal  (cc),
    87            cimag  (cc));
    88 
    89   cc = cproj  (ca);
    90   fprintf (stdout, "cproj  : %f %fi\n", creal  (cc),
    91            cimag  (cc));
    92 
    93   f1 = creal  (ca);
    94   fprintf (stdout, "creal  : %f\n", f1);
    95 
    96   cc = csin  (ca);
    97   fprintf (stdout, "csin   : %f %fi\n", creal  (cc),
    98            cimag  (cc));
    99 
    100   cc = csinh  (ca);
    101   fprintf (stdout, "csinh  : %f %fi\n", creal  (cc),
    102            cimag  (cc));
    103 
    104   cc = csqrt  (ca);
    105   fprintf (stdout, "csqrt  : %f %fi\n", creal  (cc),
    106            cimag  (cc));
    107 
    108   cc = ctan  (ca);
    109   fprintf (stdout, "ctan   : %f %fi\n", creal  (cc),
    110            cimag  (cc));
    111 
    112   cc = ctanh  (ca);
    113   fprintf (stdout, "ctanh  : %f %fi\n", creal  (cc),
    114            cimag  (cc));
    115 #endif
    116 }
     24#include "docomplex.h"
  • testsuites/libtests/complex/docomplexf.c

    rf0a7f52 rda0e045  
    1212
    1313#ifdef HAVE_CONFIG_H
    14 #include "config.h"
     14  #include "config.h"
    1515#endif
    1616
    17 #include <complex.h>
    18 #include <stdio.h>
     17#ifdef NO_FLOAT
     18  #define PROVIDE_EMPTY_FUNC
     19#endif
    1920
    20 extern void docomplexf (void);
     21#define SUFFIX f
     22#define FTYPE float
     23#define PRI "%f"
    2124
    22 void
    23 docomplexf (void)
    24 {
    25 #ifndef NO_FLOAT
    26   complex float ca, cb, cc;
    27   float f1;
    28 
    29   ca = 1.0 + 1.0 * I;
    30   cb = 1.0 - 1.0 * I;
    31 
    32   f1 = cabsf (ca);
    33   fprintf (stdout, "cabsf  : %f\n", f1);
    34 
    35   cc = cacosf (ca);
    36   fprintf (stdout, "cacosf : %f %fi\n", crealf (cc),
    37            cimagf (cc));
    38 
    39   cc = cacoshf (ca);
    40   fprintf (stdout, "cacoshf: %f %fi\n", crealf (cc),
    41            cimagf (cc));
    42 
    43   f1 = cargf (ca);
    44   fprintf (stdout, "cargf  : %f\n", f1);
    45 
    46   cc = casinf (ca);
    47   fprintf (stdout, "casinf : %f %fi\n", crealf (cc),
    48            cimagf (cc));
    49 
    50   cc = casinhf (ca);
    51   fprintf (stdout, "casinhf: %f %fi\n", crealf (cc),
    52            cimagf (cc));
    53 
    54   cc = catanf (ca);
    55   fprintf (stdout, "catanf : %f %fi\n", crealf (cc),
    56            cimagf (cc));
    57 
    58   cc = catanhf (ca);
    59   fprintf (stdout, "catanhf: %f %fi\n", crealf (cc),
    60            cimagf (cc));
    61 
    62   cc = ccosf (ca);
    63   fprintf (stdout, "ccosf  : %f %fi\n", crealf (cc),
    64            cimagf (cc));
    65 
    66   cc = ccoshf (ca);
    67   fprintf (stdout, "ccoshf : %f %fi\n", crealf (cc),
    68            cimagf (cc));
    69 
    70   cc = cexpf (ca);
    71   fprintf (stdout, "cexpf  : %f %fi\n", crealf (cc),
    72            cimagf (cc));
    73 
    74   f1 = cimagf (ca);
    75   fprintf (stdout, "cimagf : %f\n", f1);
    76 
    77   cc = clogf (ca);
    78   fprintf (stdout, "clogf  : %f %fi\n", crealf (cc),
    79            cimagf (cc));
    80 
    81   cc = conjf (ca);
    82   fprintf (stdout, "conjf  : %f %fi\n", crealf (cc),
    83            cimagf (cc));
    84 
    85   cc = cpowf (ca, cb);
    86   fprintf (stdout, "cpowf  : %f %fi\n", crealf (cc),
    87            cimagf (cc));
    88 
    89   cc = cprojf (ca);
    90   fprintf (stdout, "cprojf : %f %fi\n", crealf (cc),
    91            cimagf (cc));
    92 
    93   f1 = crealf (ca);
    94   fprintf (stdout, "crealf : %f\n", f1);
    95 
    96   cc = csinf (ca);
    97   fprintf (stdout, "csinf  : %f %fi\n", crealf (cc),
    98            cimagf (cc));
    99 
    100   cc = csinhf (ca);
    101   fprintf (stdout, "csinhf : %f %fi\n", crealf (cc),
    102            cimagf (cc));
    103 
    104   cc = csqrtf (ca);
    105   fprintf (stdout, "csqrtf : %f %fi\n", crealf (cc),
    106            cimagf (cc));
    107 
    108   cc = ctanf (ca);
    109   fprintf (stdout, "ctanf  : %f %fi\n", crealf (cc),
    110            cimagf (cc));
    111 
    112   cc = ctanhf (ca);
    113   fprintf (stdout, "ctanhf : %f %fi\n", crealf (cc),
    114            cimagf (cc));
    115 #endif
    116 }
     25#include "docomplex.h"
  • testsuites/libtests/complex/docomplexl.c

    rf0a7f52 rda0e045  
    1212
    1313#ifdef HAVE_CONFIG_H
    14 #include "config.h"
     14  #include "config.h"
    1515#endif
    1616
    17 #include <complex.h>
    18 #include <stdio.h>
     17#ifdef NO_LONG_DOUBLE
     18  #define PROVIDE_EMPTY_FUNC
     19#endif
    1920
    20 extern void docomplexl (void);
     21#define SUFFIX l
     22#define FTYPE long double
     23#define PRI "%Lf"
    2124
    22 void
    23 docomplexl (void)
    24 {
    25 #ifndef NO_LONG_DOUBLE
    26   complex long double ca, cb, cc;
    27   long double f1;
    28 
    29   ca = 1.0 + 1.0 * I;
    30   cb = 1.0 - 1.0 * I;
    31 
    32   f1 = cabsl (ca);
    33   fprintf (stdout, "cabsl  : %Lf\n", f1);
    34 
    35   cc = cacosl (ca);
    36   fprintf (stdout, "cacosl : %Lf %Lfi\n", creall (cc),
    37            cimagl (cc));
    38 
    39   cc = cacoshl (ca);
    40   fprintf (stdout, "cacoshl: %Lf %Lfi\n", creall (cc),
    41            cimagl (cc));
    42 
    43   f1 = cargl (ca);
    44   fprintf (stdout, "cargl  : %Lf\n", f1);
    45 
    46   cc = casinl (ca);
    47   fprintf (stdout, "casinl : %Lf %Lfi\n", creall (cc),
    48            cimagl (cc));
    49 
    50   cc = casinhl (ca);
    51   fprintf (stdout, "casinhl: %Lf %Lfi\n", creall (cc),
    52            cimagl (cc));
    53 
    54   cc = catanl (ca);
    55   fprintf (stdout, "catanl : %Lf %Lfi\n", creall (cc),
    56            cimagl (cc));
    57 
    58   cc = catanhl (ca);
    59   fprintf (stdout, "catanhl: %Lf %Lfi\n", creall (cc),
    60            cimagl (cc));
    61 
    62   cc = ccosl (ca);
    63   fprintf (stdout, "ccosl  : %Lf %Lfi\n", creall (cc),
    64            cimagl (cc));
    65 
    66   cc = ccoshl (ca);
    67   fprintf (stdout, "ccoshl : %Lf %Lfi\n", creall (cc),
    68            cimagl (cc));
    69 
    70   cc = cexpl (ca);
    71   fprintf (stdout, "cexpl  : %Lf %Lfi\n", creall (cc),
    72            cimagl (cc));
    73 
    74   f1 = cimagl (ca);
    75   fprintf (stdout, "cimagl : %Lf\n", f1);
    76 
    77   cc = clogl (ca);
    78   fprintf (stdout, "clogl  : %Lf %Lfi\n", creall (cc),
    79            cimagl (cc));
    80 
    81   cc = conjl (ca);
    82   fprintf (stdout, "conjl  : %Lf %Lfi\n", creall (cc),
    83            cimagl (cc));
    84 
    85   cc = cpowl (ca, cb);
    86   fprintf (stdout, "cpowl  : %Lf %Lfi\n", creall (cc),
    87            cimagl (cc));
    88 
    89   cc = cprojl (ca);
    90   fprintf (stdout, "cprojl : %Lf %Lfi\n", creall (cc),
    91            cimagl (cc));
    92 
    93   f1 = creall (ca);
    94   fprintf (stdout, "creall : %Lf\n", f1);
    95 
    96   cc = csinl (ca);
    97   fprintf (stdout, "csinl  : %Lf %Lfi\n", creall (cc),
    98            cimagl (cc));
    99 
    100   cc = csinhl (ca);
    101   fprintf (stdout, "csinhl : %Lf %Lfi\n", creall (cc),
    102            cimagl (cc));
    103 
    104   cc = csqrtl (ca);
    105   fprintf (stdout, "csqrtl : %Lf %Lfi\n", creall (cc),
    106            cimagl (cc));
    107 
    108   cc = ctanl (ca);
    109   fprintf (stdout, "ctanl  : %Lf %Lfi\n", creall (cc),
    110            cimagl (cc));
    111 
    112   cc = ctanhl (ca);
    113   fprintf (stdout, "ctanhl : %Lf %Lfi\n", creall (cc),
    114            cimagl (cc));
    115 #endif
    116 }
     25#include "docomplex.h"
  • testsuites/libtests/complex/init.c

    rf0a7f52 rda0e045  
    3232extern void docomplex(void);
    3333extern void docomplexf(void);
    34 #ifndef NO_LONG_DOUBLE
    3534extern void docomplexl(void);
    36 #endif
    3735
    3836#if __rtems__
     
    6159  docomplex();
    6260  docomplexf(); 
    63 #ifndef NO_LONG_DOUBLE
    6461  docomplexl();
    65 #endif
    6662  fprintf( stdout, "*** END OF COMPLEX MATH TEST ***\n" );
    6763  exit( 0 );
  • testsuites/libtests/math/Makefile.am

    rf0a7f52 rda0e045  
    11rtems_tests_PROGRAMS = math
    22math_SOURCES = init.c domath.c
    3 EXTRA_DIST = $(srcdir)/../math/domath.in
    4 
    5 $(srcdir)/domath.c: $(srcdir)/../math/domath.in
    6         sed -e 's,[@]FTYPE[@],double,' \
    7         -e 's,[@]FSUFFIX[@], ,g' \
    8         -e 's,[@]FGUARD[@],NO_DOUBLE,' \
    9         $(srcdir)/../math/domath.in > $(srcdir)/domath.c
    103
    114dist_rtems_tests_DATA = math.scn
     
    158include $(top_srcdir)/../automake/leaf.am
    169
     10math_CPPFLAGS = $(AM_CPPFLAGS) -I$(top_srcdir)/math
    1711math_LDADD = -lm
    1812
  • testsuites/libtests/math/domath.c

    rf0a7f52 rda0e045  
    1212
    1313#ifdef HAVE_CONFIG_H
    14 #include "config.h"
     14  #include "config.h"
    1515#endif
    1616
    17 #include <math.h>
    18 #include <stdio.h>
    19 
    20 #ifndef M_PI_2
    21 #define M_PI_2 1.57079632679489661923
     17#ifdef NO_DOUBLE
     18  #define PROVIDE_EMPTY_FUNC
    2219#endif
    2320
    24 #ifndef M_PI_4
    25 #define M_PI_4 0.78539816339744830962
    26 #endif
     21#define FTYPE double
     22#define PRI "%f"
    2723
    28 extern void domath  (void);
    29 
    30 void
    31 domath  (void)
    32 {
    33 #ifndef NO_DOUBLE
    34   double f1;
    35   double f2;
    36 
    37   int i1;
    38 
    39   f1 = acos (0.0);
    40   fprintf( stdout, "acos           : %f\n", f1);
    41 
    42   f1 = acosh (0.0);
    43   fprintf( stdout, "acosh          : %f\n", f1);
    44 
    45   f1 = asin (1.0);
    46   fprintf( stdout, "asin           : %f\n", f1);
    47 
    48   f1 = asinh (1.0);
    49   fprintf( stdout, "asinh          : %f\n", f1);
    50 
    51   f1 = atan (M_PI_4);
    52   fprintf( stdout, "atan           : %f\n", f1);
    53 
    54   f1 = atan2 (2.3, 2.3);
    55   fprintf( stdout, "atan2          : %f\n", f1);
    56 
    57   f1 = atanh (1.0);
    58   fprintf( stdout, "atanh          : %f\n", f1);
    59 
    60   f1 = cbrt (27.0);
    61   fprintf( stdout, "cbrt           : %f\n", f1);
    62 
    63   f1 = ceil (3.5);
    64   fprintf( stdout, "ceil           : %f\n", f1);
    65 
    66   f1 = copysign (3.5, -2.5);
    67   fprintf( stdout, "copysign       : %f\n", f1);
    68 
    69   f1 = cos (M_PI_2);
    70   fprintf( stdout, "cos            : %f\n", f1);
    71 
    72   f1 = cosh (M_PI_2);
    73   fprintf( stdout, "cosh           : %f\n", f1);
    74 
    75   f1 = erf (42.0);
    76   fprintf( stdout, "erf            : %f\n", f1);
    77 
    78   f1 = erfc (42.0);
    79   fprintf( stdout, "erfc           : %f\n", f1);
    80 
    81   f1 = exp (0.42);
    82   fprintf( stdout, "exp            : %f\n", f1);
    83 
    84   f1 = exp2 (0.42);
    85   fprintf( stdout, "exp2           : %f\n", f1);
    86 
    87   f1 = expm1 (0.00042);
    88   fprintf( stdout, "expm1          : %f\n", f1);
    89 
    90   f1 = fabs (-1.123);
    91   fprintf( stdout, "fabs           : %f\n", f1);
    92 
    93   f1 = fdim (1.123, 2.123);
    94   fprintf( stdout, "fdim           : %f\n", f1);
    95 
    96   f1 = floor (0.5);
    97   fprintf( stdout, "floor          : %f\n", f1);
    98   f1 = floor (-0.5);
    99   fprintf( stdout, "floor          : %f\n", f1);
    100 
    101   f1 = fma (2.1, 2.2, 3.01);
    102   fprintf( stdout, "fma            : %f\n", f1);
    103 
    104   f1 = fmax (-0.42, 0.42);
    105   fprintf( stdout, "fmax           : %f\n", f1);
    106 
    107   f1 = fmin (-0.42, 0.42);
    108   fprintf( stdout, "fmin           : %f\n", f1);
    109 
    110   f1 = fmod (42.0, 3.0);
    111   fprintf( stdout, "fmod           : %f\n", f1);
    112 
    113   /* no type-specific variant */
    114   i1 = fpclassify(1.0);
    115   fprintf( stdout, "fpclassify     : %d\n", i1);
    116 
    117   f1 = frexp (42.0, &i1);
    118   fprintf( stdout, "frexp          : %f\n", f1);
    119 
    120   f1 = hypot (42.0, 42.0);
    121   fprintf( stdout, "hypot          : %f\n", f1);
    122 
    123   i1 = ilogb (42.0);
    124   fprintf( stdout, "ilogb          : %d\n", i1);
    125 
    126   /* no type-specific variant */
    127   i1 = isfinite(3.0);
    128   fprintf( stdout, "isfinite       : %d\n", i1);
    129 
    130   /* no type-specific variant */
    131   i1 = isgreater(3.0, 3.1);
    132   fprintf( stdout, "isgreater      : %d\n", i1);
    133 
    134   /* no type-specific variant */
    135   i1 = isgreaterequal(3.0, 3.1);
    136   fprintf( stdout, "isgreaterequal : %d\n", i1);
    137 
    138   /* no type-specific variant */
    139   i1 = isinf(3.0);
    140   fprintf( stdout, "isinf          : %d\n", i1);
    141 
    142   /* no type-specific variant */
    143   i1 = isless(3.0, 3.1);
    144   fprintf( stdout, "isless         : %d\n", i1);
    145 
    146   /* no type-specific variant */
    147   i1 = islessequal(3.0, 3.1);
    148   fprintf( stdout, "islessequal    : %d\n", i1);
    149 
    150   /* no type-specific variant */
    151   i1 = islessgreater(3.0, 3.1);
    152   fprintf( stdout, "islessgreater  : %d\n", i1);
    153 
    154   /* no type-specific variant */
    155   i1 = isnan(0.0);
    156   fprintf( stdout, "isnan          : %d\n", i1);
    157 
    158   /* no type-specific variant */
    159   i1 = isnormal(3.0);
    160   fprintf( stdout, "isnormal       : %d\n", i1);
    161 
    162   /* no type-specific variant */
    163   f1 = isunordered(1.0, 2.0);
    164   fprintf( stdout, "isunordered    : %d\n", i1);
    165 
    166   f1 = j0 (1.2);
    167   fprintf( stdout, "j0             : %f\n", f1);
    168 
    169   f1 = j1 (1.2);
    170   fprintf( stdout, "j1             : %f\n", f1);
    171 
    172   f1 = jn (2,1.2);
    173   fprintf( stdout, "jn             : %f\n", f1);
    174 
    175   f1 = ldexp (1.2,3);
    176   fprintf( stdout, "ldexp          : %f\n", f1);
    177 
    178   f1 = lgamma (42.0);
    179   fprintf( stdout, "lgamma         : %f\n", f1);
    180 
    181   f1 = llrint (-0.5);
    182   fprintf( stdout, "llrint         : %f\n", f1);
    183   f1 = llrint (0.5);
    184   fprintf( stdout, "llrint         : %f\n", f1);
    185 
    186   f1 = llround (-0.5);
    187   fprintf( stdout, "lround         : %f\n", f1);
    188   f1 = llround (0.5);
    189   fprintf( stdout, "lround         : %f\n", f1);
    190 
    191   f1 = log (42.0);
    192   fprintf( stdout, "log            : %f\n", f1);
    193 
    194   f1 = log10 (42.0);
    195   fprintf( stdout, "log10          : %f\n", f1);
    196 
    197   f1 = log1p (42.0);
    198   fprintf( stdout, "log1p          : %f\n", f1);
    199 
    200   f1 = log2 (42.0);
    201   fprintf( stdout, "log2           : %f\n", f1);
    202 
    203   f1 = logb (42.0);
    204   fprintf( stdout, "logb           : %f\n", f1);
    205 
    206   f1 = lrint (-0.5);
    207   fprintf( stdout, "lrint          : %f\n", f1);
    208   f1 = lrint (0.5);
    209   fprintf( stdout, "lrint          : %f\n", f1);
    210 
    211   f1 = lround (-0.5);
    212   fprintf( stdout, "lround         : %f\n", f1);
    213   f1 = lround (0.5);
    214   fprintf( stdout, "lround         : %f\n", f1);
    215 
    216   f1 = modf (42.0,&f2);
    217   fprintf( stdout, "lmodf          : %f\n", f1);
    218 
    219   f1 = nan ("");
    220   fprintf( stdout, "nan            : %f\n", f1);
    221 
    222   f1 = nearbyint (1.5);
    223   fprintf( stdout, "nearbyint      : %f\n", f1);
    224 
    225   f1 = nextafter (1.5,2.0);
    226   fprintf( stdout, "nextafter      : %f\n", f1);
    227 
    228   f1 = pow (3.01, 2.0);
    229   fprintf( stdout, "pow            : %f\n", f1);
    230 
    231   f1 = remainder (3.01,2.0);
    232   fprintf( stdout, "remainder      : %f\n", f1);
    233 
    234   f1 = remquo (29.0,3.0,&i1);
    235   fprintf( stdout, "remquo         : %f\n", f1);
    236 
    237   f1 = rint (0.5);
    238   fprintf( stdout, "rint           : %f\n", f1);
    239   f1 = rint (-0.5);
    240   fprintf( stdout, "rint           : %f\n", f1);
    241 
    242   f1 = round (0.5);
    243   fprintf( stdout, "round          : %f\n", f1);
    244   f1 = round (-0.5);
    245   fprintf( stdout, "round          : %f\n", f1);
    246 
    247   f1 = scalbln (1.2,3);
    248   fprintf( stdout, "scalbln        : %f\n", f1);
    249 
    250   f1 = scalbn (1.2,3);
    251   fprintf( stdout, "scalbn         : %f\n", f1);
    252 
    253   /* no type-specific variant */
    254   i1 = signbit(1.0);
    255   fprintf( stdout, "signbit        : %i\n", i1);
    256 
    257   f1 = sin (M_PI_4);
    258   fprintf( stdout, "sin            : %f\n", f1);
    259 
    260   f1 = sinh (M_PI_4);
    261   fprintf( stdout, "sinh           : %f\n", f1);
    262 
    263   f1 = sqrt (9.0);
    264   fprintf( stdout, "sqrt           : %f\n", f1);
    265 
    266   f1 = tan (M_PI_4);
    267   fprintf( stdout, "tan            : %f\n", f1);
    268 
    269   f1 = tanh (M_PI_4);
    270   fprintf( stdout, "tanh           : %f\n", f1);
    271 
    272   f1 = tgamma (2.1);
    273   fprintf( stdout, "tgamma         : %f\n", f1);
    274 
    275   f1 = trunc (3.5);
    276   fprintf( stdout, "trunc          : %f\n", f1);
    277 
    278   f1 = y0 (1.2);
    279   fprintf( stdout, "y0             : %f\n", f1);
    280 
    281   f1 = y1 (1.2);
    282   fprintf( stdout, "y1             : %f\n", f1);
    283 
    284   f1 = yn (3,1.2);
    285   fprintf( stdout, "yn             : %f\n", f1);
    286 #endif
    287 }
     24#include <domath.h>
  • testsuites/libtests/mathf/Makefile.am

    rf0a7f52 rda0e045  
    11rtems_tests_PROGRAMS = mathf
    22mathf_SOURCES = init.c domathf.c
    3 EXTRA_DIST = $(srcdir)/../math/domath.in
    4 
    5 $(srcdir)/domathf.c: $(srcdir)/../math/domath.in
    6         sed -e 's,[@]FTYPE[@],float,' \
    7         -e 's,[@]FSUFFIX[@],f,g' \
    8         -e 's,[@]FGUARD[@],NO_FLOAT,' \
    9         $(srcdir)/../math/domath.in > $(srcdir)/domathf.c
    103
    114dist_rtems_tests_DATA = mathf.scn
     
    158include $(top_srcdir)/../automake/leaf.am
    169
     10mathf_CPPFLAGS = $(AM_CPPFLAGS) -I$(top_srcdir)/math
    1711mathf_LDADD = -lm
    1812
  • testsuites/libtests/mathf/domathf.c

    rf0a7f52 rda0e045  
    1212
    1313#ifdef HAVE_CONFIG_H
    14 #include "config.h"
     14  #include "config.h"
    1515#endif
    1616
    17 #include <math.h>
    18 #include <stdio.h>
    19 
    20 #ifndef M_PI_2
    21 #define M_PI_2 1.57079632679489661923
     17#ifdef NO_FLOAT
     18  #define PROVIDE_EMPTY_FUNC
    2219#endif
    2320
    24 #ifndef M_PI_4
    25 #define M_PI_4 0.78539816339744830962
    26 #endif
     21#define SUFFIX f
     22#define FTYPE float
     23#define PRI "%f"
    2724
    28 extern void domathf (void);
    29 
    30 void
    31 domathf (void)
    32 {
    33 #ifndef NO_FLOAT
    34   float f1;
    35   float f2;
    36 
    37   int i1;
    38 
    39   f1 = acosf(0.0);
    40   fprintf( stdout, "acosf          : %f\n", f1);
    41 
    42   f1 = acoshf(0.0);
    43   fprintf( stdout, "acoshf         : %f\n", f1);
    44 
    45   f1 = asinf(1.0);
    46   fprintf( stdout, "asinf          : %f\n", f1);
    47 
    48   f1 = asinhf(1.0);
    49   fprintf( stdout, "asinhf         : %f\n", f1);
    50 
    51   f1 = atanf(M_PI_4);
    52   fprintf( stdout, "atanf          : %f\n", f1);
    53 
    54   f1 = atan2f(2.3, 2.3);
    55   fprintf( stdout, "atan2f         : %f\n", f1);
    56 
    57   f1 = atanhf(1.0);
    58   fprintf( stdout, "atanhf         : %f\n", f1);
    59 
    60   f1 = cbrtf(27.0);
    61   fprintf( stdout, "cbrtf          : %f\n", f1);
    62 
    63   f1 = ceilf(3.5);
    64   fprintf( stdout, "ceilf          : %f\n", f1);
    65 
    66   f1 = copysignf(3.5, -2.5);
    67   fprintf( stdout, "copysignf      : %f\n", f1);
    68 
    69   f1 = cosf(M_PI_2);
    70   fprintf( stdout, "cosf           : %f\n", f1);
    71 
    72   f1 = coshf(M_PI_2);
    73   fprintf( stdout, "coshf          : %f\n", f1);
    74 
    75   f1 = erff(42.0);
    76   fprintf( stdout, "erff           : %f\n", f1);
    77 
    78   f1 = erfcf(42.0);
    79   fprintf( stdout, "erfcf          : %f\n", f1);
    80 
    81   f1 = expf(0.42);
    82   fprintf( stdout, "expf           : %f\n", f1);
    83 
    84   f1 = exp2f(0.42);
    85   fprintf( stdout, "exp2f          : %f\n", f1);
    86 
    87   f1 = expm1f(0.00042);
    88   fprintf( stdout, "expm1f         : %f\n", f1);
    89 
    90   f1 = fabsf(-1.123);
    91   fprintf( stdout, "fabsf          : %f\n", f1);
    92 
    93   f1 = fdimf(1.123, 2.123);
    94   fprintf( stdout, "fdimf          : %f\n", f1);
    95 
    96   f1 = floorf(0.5);
    97   fprintf( stdout, "floorf         : %f\n", f1);
    98   f1 = floorf(-0.5);
    99   fprintf( stdout, "floorf         : %f\n", f1);
    100 
    101   f1 = fmaf(2.1, 2.2, 3.01);
    102   fprintf( stdout, "fmaf           : %f\n", f1);
    103 
    104   f1 = fmaxf(-0.42, 0.42);
    105   fprintf( stdout, "fmaxf          : %f\n", f1);
    106 
    107   f1 = fminf(-0.42, 0.42);
    108   fprintf( stdout, "fminf          : %f\n", f1);
    109 
    110   f1 = fmodf(42.0, 3.0);
    111   fprintf( stdout, "fmodf          : %f\n", f1);
    112 
    113   /* no type-specific variant */
    114   i1 = fpclassify(1.0);
    115   fprintf( stdout, "fpclassify     : %d\n", i1);
    116 
    117   f1 = frexpf(42.0, &i1);
    118   fprintf( stdout, "frexpf         : %f\n", f1);
    119 
    120   f1 = hypotf(42.0, 42.0);
    121   fprintf( stdout, "hypotf         : %f\n", f1);
    122 
    123   i1 = ilogbf(42.0);
    124   fprintf( stdout, "ilogbf         : %d\n", i1);
    125 
    126   /* no type-specific variant */
    127   i1 = isfinite(3.0);
    128   fprintf( stdout, "isfinite       : %d\n", i1);
    129 
    130   /* no type-specific variant */
    131   i1 = isgreater(3.0, 3.1);
    132   fprintf( stdout, "isgreater      : %d\n", i1);
    133 
    134   /* no type-specific variant */
    135   i1 = isgreaterequal(3.0, 3.1);
    136   fprintf( stdout, "isgreaterequal : %d\n", i1);
    137 
    138   /* no type-specific variant */
    139   i1 = isinf(3.0);
    140   fprintf( stdout, "isinf          : %d\n", i1);
    141 
    142   /* no type-specific variant */
    143   i1 = isless(3.0, 3.1);
    144   fprintf( stdout, "isless         : %d\n", i1);
    145 
    146   /* no type-specific variant */
    147   i1 = islessequal(3.0, 3.1);
    148   fprintf( stdout, "islessequal    : %d\n", i1);
    149 
    150   /* no type-specific variant */
    151   i1 = islessgreater(3.0, 3.1);
    152   fprintf( stdout, "islessgreater  : %d\n", i1);
    153 
    154   /* no type-specific variant */
    155   i1 = isnan(0.0);
    156   fprintf( stdout, "isnan          : %d\n", i1);
    157 
    158   /* no type-specific variant */
    159   i1 = isnormal(3.0);
    160   fprintf( stdout, "isnormal       : %d\n", i1);
    161 
    162   /* no type-specific variant */
    163   f1 = isunordered(1.0, 2.0);
    164   fprintf( stdout, "isunordered    : %d\n", i1);
    165 
    166   f1 = j0f(1.2);
    167   fprintf( stdout, "j0f            : %f\n", f1);
    168 
    169   f1 = j1f(1.2);
    170   fprintf( stdout, "j1f            : %f\n", f1);
    171 
    172   f1 = jnf(2,1.2);
    173   fprintf( stdout, "jnf            : %f\n", f1);
    174 
    175   f1 = ldexpf(1.2,3);
    176   fprintf( stdout, "ldexpf         : %f\n", f1);
    177 
    178   f1 = lgammaf(42.0);
    179   fprintf( stdout, "lgammaf        : %f\n", f1);
    180 
    181   f1 = llrintf(-0.5);
    182   fprintf( stdout, "llrintf        : %f\n", f1);
    183   f1 = llrintf(0.5);
    184   fprintf( stdout, "llrintf        : %f\n", f1);
    185 
    186   f1 = llroundf(-0.5);
    187   fprintf( stdout, "lroundf        : %f\n", f1);
    188   f1 = llroundf(0.5);
    189   fprintf( stdout, "lroundf        : %f\n", f1);
    190 
    191   f1 = logf(42.0);
    192   fprintf( stdout, "logf           : %f\n", f1);
    193 
    194   f1 = log10f(42.0);
    195   fprintf( stdout, "log10f         : %f\n", f1);
    196 
    197   f1 = log1pf(42.0);
    198   fprintf( stdout, "log1pf         : %f\n", f1);
    199 
    200   f1 = log2f(42.0);
    201   fprintf( stdout, "log2f          : %f\n", f1);
    202 
    203   f1 = logbf(42.0);
    204   fprintf( stdout, "logbf          : %f\n", f1);
    205 
    206   f1 = lrintf(-0.5);
    207   fprintf( stdout, "lrintf         : %f\n", f1);
    208   f1 = lrintf(0.5);
    209   fprintf( stdout, "lrintf         : %f\n", f1);
    210 
    211   f1 = lroundf(-0.5);
    212   fprintf( stdout, "lroundf        : %f\n", f1);
    213   f1 = lroundf(0.5);
    214   fprintf( stdout, "lroundf        : %f\n", f1);
    215 
    216   f1 = modff(42.0,&f2);
    217   fprintf( stdout, "lmodff         : %f\n", f1);
    218 
    219   f1 = nanf("");
    220   fprintf( stdout, "nanf           : %f\n", f1);
    221 
    222   f1 = nearbyintf(1.5);
    223   fprintf( stdout, "nearbyintf     : %f\n", f1);
    224 
    225   f1 = nextafterf(1.5,2.0);
    226   fprintf( stdout, "nextafterf     : %f\n", f1);
    227 
    228   f1 = powf(3.01, 2.0);
    229   fprintf( stdout, "powf           : %f\n", f1);
    230 
    231   f1 = remainderf(3.01,2.0);
    232   fprintf( stdout, "remainderf     : %f\n", f1);
    233 
    234   f1 = remquof(29.0,3.0,&i1);
    235   fprintf( stdout, "remquof        : %f\n", f1);
    236 
    237   f1 = rintf(0.5);
    238   fprintf( stdout, "rintf          : %f\n", f1);
    239   f1 = rintf(-0.5);
    240   fprintf( stdout, "rintf          : %f\n", f1);
    241 
    242   f1 = roundf(0.5);
    243   fprintf( stdout, "roundf         : %f\n", f1);
    244   f1 = roundf(-0.5);
    245   fprintf( stdout, "roundf         : %f\n", f1);
    246 
    247   f1 = scalblnf(1.2,3);
    248   fprintf( stdout, "scalblnf       : %f\n", f1);
    249 
    250   f1 = scalbnf(1.2,3);
    251   fprintf( stdout, "scalbnf        : %f\n", f1);
    252 
    253   /* no type-specific variant */
    254   i1 = signbit(1.0);
    255   fprintf( stdout, "signbit        : %i\n", i1);
    256 
    257   f1 = sinf(M_PI_4);
    258   fprintf( stdout, "sinf           : %f\n", f1);
    259 
    260   f1 = sinhf(M_PI_4);
    261   fprintf( stdout, "sinhf          : %f\n", f1);
    262 
    263   f1 = sqrtf(9.0);
    264   fprintf( stdout, "sqrtf          : %f\n", f1);
    265 
    266   f1 = tanf(M_PI_4);
    267   fprintf( stdout, "tanf           : %f\n", f1);
    268 
    269   f1 = tanhf(M_PI_4);
    270   fprintf( stdout, "tanhf          : %f\n", f1);
    271 
    272   f1 = tgammaf(2.1);
    273   fprintf( stdout, "tgammaf        : %f\n", f1);
    274 
    275   f1 = truncf(3.5);
    276   fprintf( stdout, "truncf         : %f\n", f1);
    277 
    278   f1 = y0f(1.2);
    279   fprintf( stdout, "y0f            : %f\n", f1);
    280 
    281   f1 = y1f(1.2);
    282   fprintf( stdout, "y1f            : %f\n", f1);
    283 
    284   f1 = ynf(3,1.2);
    285   fprintf( stdout, "ynf            : %f\n", f1);
    286 #endif
    287 }
     25#include <domath.h>
  • testsuites/libtests/mathl/Makefile.am

    rf0a7f52 rda0e045  
    55# FIXME: Skip long double, not yet supported in newlib
    66# => This test currently is a nop
    7 mathl_CPPFLAGS = $(AM_CPPFLAGS) -DNO_LONG_DOUBLE
    8 
    9 $(srcdir)/domathl.c: $(srcdir)/../math/domath.in
    10         sed -e 's,[@]FTYPE[@],long double,' \
    11         -e 's,[@]FSUFFIX[@],l,g' \
    12         -e 's,%f,%Lf,g' \
    13         -e 's,[@]FGUARD[@],NO_LONG_DOUBLE,' \
    14         $(srcdir)/../math/domath.in > $(srcdir)/domathl.c
     7mathl_CPPFLAGS = $(AM_CPPFLAGS) -I$(top_srcdir)/math -DNO_LONG_DOUBLE
    158
    169dist_rtems_tests_DATA = mathl.scn
  • testsuites/libtests/mathl/domathl.c

    rf0a7f52 rda0e045  
    1212
    1313#ifdef HAVE_CONFIG_H
    14 #include "config.h"
     14  #include "config.h"
    1515#endif
    1616
    17 #include <math.h>
    18 #include <stdio.h>
    19 
    20 #ifndef M_PI_2
    21 #define M_PI_2 1.57079632679489661923
     17#ifdef NO_LONG_DOUBLE
     18  #define PROVIDE_EMPTY_FUNC
    2219#endif
    2320
    24 #ifndef M_PI_4
    25 #define M_PI_4 0.78539816339744830962
    26 #endif
     21#define SUFFIX l
     22#define FTYPE long double
     23#define PRI "%Lf"
    2724
    28 extern void domathl (void);
    29 
    30 void
    31 domathl (void)
    32 {
    33 #ifndef NO_LONG_DOUBLE
    34   long double f1;
    35   long double f2;
    36 
    37   int i1;
    38 
    39   f1 = acosl(0.0);
    40   fprintf( stdout, "acosl          : %Lf\n", f1);
    41 
    42   f1 = acoshl(0.0);
    43   fprintf( stdout, "acoshl         : %Lf\n", f1);
    44 
    45   f1 = asinl(1.0);
    46   fprintf( stdout, "asinl          : %Lf\n", f1);
    47 
    48   f1 = asinhl(1.0);
    49   fprintf( stdout, "asinhl         : %Lf\n", f1);
    50 
    51   f1 = atanl(M_PI_4);
    52   fprintf( stdout, "atanl          : %Lf\n", f1);
    53 
    54   f1 = atan2l(2.3, 2.3);
    55   fprintf( stdout, "atan2l         : %Lf\n", f1);
    56 
    57   f1 = atanhl(1.0);
    58   fprintf( stdout, "atanhl         : %Lf\n", f1);
    59 
    60   f1 = cbrtl(27.0);
    61   fprintf( stdout, "cbrtl          : %Lf\n", f1);
    62 
    63   f1 = ceill(3.5);
    64   fprintf( stdout, "ceill          : %Lf\n", f1);
    65 
    66   f1 = copysignl(3.5, -2.5);
    67   fprintf( stdout, "copysignl      : %Lf\n", f1);
    68 
    69   f1 = cosl(M_PI_2);
    70   fprintf( stdout, "cosl           : %Lf\n", f1);
    71 
    72   f1 = coshl(M_PI_2);
    73   fprintf( stdout, "coshl          : %Lf\n", f1);
    74 
    75   f1 = erfl(42.0);
    76   fprintf( stdout, "erfl           : %Lf\n", f1);
    77 
    78   f1 = erfcl(42.0);
    79   fprintf( stdout, "erfcl          : %Lf\n", f1);
    80 
    81   f1 = expl(0.42);
    82   fprintf( stdout, "expl           : %Lf\n", f1);
    83 
    84   f1 = exp2l(0.42);
    85   fprintf( stdout, "exp2l          : %Lf\n", f1);
    86 
    87   f1 = expm1l(0.00042);
    88   fprintf( stdout, "expm1l         : %Lf\n", f1);
    89 
    90   f1 = fabsl(-1.123);
    91   fprintf( stdout, "fabsl          : %Lf\n", f1);
    92 
    93   f1 = fdiml(1.123, 2.123);
    94   fprintf( stdout, "fdiml          : %Lf\n", f1);
    95 
    96   f1 = floorl(0.5);
    97   fprintf( stdout, "floorl         : %Lf\n", f1);
    98   f1 = floorl(-0.5);
    99   fprintf( stdout, "floorl         : %Lf\n", f1);
    100 
    101   f1 = fmal(2.1, 2.2, 3.01);
    102   fprintf( stdout, "fmal           : %Lf\n", f1);
    103 
    104   f1 = fmaxl(-0.42, 0.42);
    105   fprintf( stdout, "fmaxl          : %Lf\n", f1);
    106 
    107   f1 = fminl(-0.42, 0.42);
    108   fprintf( stdout, "fminl          : %Lf\n", f1);
    109 
    110   f1 = fmodl(42.0, 3.0);
    111   fprintf( stdout, "fmodl          : %Lf\n", f1);
    112 
    113   /* no type-specific variant */
    114   i1 = fpclassify(1.0);
    115   fprintf( stdout, "fpclassify     : %d\n", i1);
    116 
    117   f1 = frexpl(42.0, &i1);
    118   fprintf( stdout, "frexpl         : %Lf\n", f1);
    119 
    120   f1 = hypotl(42.0, 42.0);
    121   fprintf( stdout, "hypotl         : %Lf\n", f1);
    122 
    123   i1 = ilogbl(42.0);
    124   fprintf( stdout, "ilogbl         : %d\n", i1);
    125 
    126   /* no type-specific variant */
    127   i1 = isfinite(3.0);
    128   fprintf( stdout, "isfinite       : %d\n", i1);
    129 
    130   /* no type-specific variant */
    131   i1 = isgreater(3.0, 3.1);
    132   fprintf( stdout, "isgreater      : %d\n", i1);
    133 
    134   /* no type-specific variant */
    135   i1 = isgreaterequal(3.0, 3.1);
    136   fprintf( stdout, "isgreaterequal : %d\n", i1);
    137 
    138   /* no type-specific variant */
    139   i1 = isinf(3.0);
    140   fprintf( stdout, "isinf          : %d\n", i1);
    141 
    142   /* no type-specific variant */
    143   i1 = isless(3.0, 3.1);
    144   fprintf( stdout, "isless         : %d\n", i1);
    145 
    146   /* no type-specific variant */
    147   i1 = islessequal(3.0, 3.1);
    148   fprintf( stdout, "islessequal    : %d\n", i1);
    149 
    150   /* no type-specific variant */
    151   i1 = islessgreater(3.0, 3.1);
    152   fprintf( stdout, "islessgreater  : %d\n", i1);
    153 
    154   /* no type-specific variant */
    155   i1 = isnan(0.0);
    156   fprintf( stdout, "isnan          : %d\n", i1);
    157 
    158   /* no type-specific variant */
    159   i1 = isnormal(3.0);
    160   fprintf( stdout, "isnormal       : %d\n", i1);
    161 
    162   /* no type-specific variant */
    163   f1 = isunordered(1.0, 2.0);
    164   fprintf( stdout, "isunordered    : %d\n", i1);
    165 
    166   f1 = j0l(1.2);
    167   fprintf( stdout, "j0l            : %Lf\n", f1);
    168 
    169   f1 = j1l(1.2);
    170   fprintf( stdout, "j1l            : %Lf\n", f1);
    171 
    172   f1 = jnl(2,1.2);
    173   fprintf( stdout, "jnl            : %Lf\n", f1);
    174 
    175   f1 = ldexpl(1.2,3);
    176   fprintf( stdout, "ldexpl         : %Lf\n", f1);
    177 
    178   f1 = lgammal(42.0);
    179   fprintf( stdout, "lgammal        : %Lf\n", f1);
    180 
    181   f1 = llrintl(-0.5);
    182   fprintf( stdout, "llrintl        : %Lf\n", f1);
    183   f1 = llrintl(0.5);
    184   fprintf( stdout, "llrintl        : %Lf\n", f1);
    185 
    186   f1 = llroundl(-0.5);
    187   fprintf( stdout, "lroundl        : %Lf\n", f1);
    188   f1 = llroundl(0.5);
    189   fprintf( stdout, "lroundl        : %Lf\n", f1);
    190 
    191   f1 = logl(42.0);
    192   fprintf( stdout, "logl           : %Lf\n", f1);
    193 
    194   f1 = log10l(42.0);
    195   fprintf( stdout, "log10l         : %Lf\n", f1);
    196 
    197   f1 = log1pl(42.0);
    198   fprintf( stdout, "log1pl         : %Lf\n", f1);
    199 
    200   f1 = log2l(42.0);
    201   fprintf( stdout, "log2l          : %Lf\n", f1);
    202 
    203   f1 = logbl(42.0);
    204   fprintf( stdout, "logbl          : %Lf\n", f1);
    205 
    206   f1 = lrintl(-0.5);
    207   fprintf( stdout, "lrintl         : %Lf\n", f1);
    208   f1 = lrintl(0.5);
    209   fprintf( stdout, "lrintl         : %Lf\n", f1);
    210 
    211   f1 = lroundl(-0.5);
    212   fprintf( stdout, "lroundl        : %Lf\n", f1);
    213   f1 = lroundl(0.5);
    214   fprintf( stdout, "lroundl        : %Lf\n", f1);
    215 
    216   f1 = modfl(42.0,&f2);
    217   fprintf( stdout, "lmodfl         : %Lf\n", f1);
    218 
    219   f1 = nanl("");
    220   fprintf( stdout, "nanl           : %Lf\n", f1);
    221 
    222   f1 = nearbyintl(1.5);
    223   fprintf( stdout, "nearbyintl     : %Lf\n", f1);
    224 
    225   f1 = nextafterl(1.5,2.0);
    226   fprintf( stdout, "nextafterl     : %Lf\n", f1);
    227 
    228   f1 = powl(3.01, 2.0);
    229   fprintf( stdout, "powl           : %Lf\n", f1);
    230 
    231   f1 = remainderl(3.01,2.0);
    232   fprintf( stdout, "remainderl     : %Lf\n", f1);
    233 
    234   f1 = remquol(29.0,3.0,&i1);
    235   fprintf( stdout, "remquol        : %Lf\n", f1);
    236 
    237   f1 = rintl(0.5);
    238   fprintf( stdout, "rintl          : %Lf\n", f1);
    239   f1 = rintl(-0.5);
    240   fprintf( stdout, "rintl          : %Lf\n", f1);
    241 
    242   f1 = roundl(0.5);
    243   fprintf( stdout, "roundl         : %Lf\n", f1);
    244   f1 = roundl(-0.5);
    245   fprintf( stdout, "roundl         : %Lf\n", f1);
    246 
    247   f1 = scalblnl(1.2,3);
    248   fprintf( stdout, "scalblnl       : %Lf\n", f1);
    249 
    250   f1 = scalbnl(1.2,3);
    251   fprintf( stdout, "scalbnl        : %Lf\n", f1);
    252 
    253   /* no type-specific variant */
    254   i1 = signbit(1.0);
    255   fprintf( stdout, "signbit        : %i\n", i1);
    256 
    257   f1 = sinl(M_PI_4);
    258   fprintf( stdout, "sinl           : %Lf\n", f1);
    259 
    260   f1 = sinhl(M_PI_4);
    261   fprintf( stdout, "sinhl          : %Lf\n", f1);
    262 
    263   f1 = sqrtl(9.0);
    264   fprintf( stdout, "sqrtl          : %Lf\n", f1);
    265 
    266   f1 = tanl(M_PI_4);
    267   fprintf( stdout, "tanl           : %Lf\n", f1);
    268 
    269   f1 = tanhl(M_PI_4);
    270   fprintf( stdout, "tanhl          : %Lf\n", f1);
    271 
    272   f1 = tgammal(2.1);
    273   fprintf( stdout, "tgammal        : %Lf\n", f1);
    274 
    275   f1 = truncl(3.5);
    276   fprintf( stdout, "truncl         : %Lf\n", f1);
    277 
    278   f1 = y0l(1.2);
    279   fprintf( stdout, "y0l            : %Lf\n", f1);
    280 
    281   f1 = y1l(1.2);
    282   fprintf( stdout, "y1l            : %Lf\n", f1);
    283 
    284   f1 = ynl(3,1.2);
    285   fprintf( stdout, "ynl            : %Lf\n", f1);
    286 #endif
    287 }
     25#include <domath.h>
Note: See TracChangeset for help on using the changeset viewer.