Edit

kc3-lang/gnulib/tests/test-frexpf.c

Branch :

  • Show log

    Commit

  • Author : Paul Eggert
    Date : 2021-01-01 07:28:52
    Hash : 4b948321
    Message : maint: run 'make update-copyright'

  • tests/test-frexpf.c
  • /* Test of splitting a float into fraction and mantissa.
       Copyright (C) 2007-2021 Free Software Foundation, Inc.
    
       This program is free software: you can redistribute it and/or modify
       it under the terms of the GNU General Public License as published by
       the Free Software Foundation; either version 3 of the License, or
       (at your option) any later version.
    
       This program is distributed in the hope that it will be useful,
       but WITHOUT ANY WARRANTY; without even the implied warranty of
       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
       GNU General Public License for more details.
    
       You should have received a copy of the GNU General Public License
       along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
    
    /* Written by Bruno Haible <bruno@clisp.org>, 2007.  */
    
    #include <config.h>
    
    #include <math.h>
    
    #include "signature.h"
    SIGNATURE_CHECK (frexpf, float, (float, int *));
    
    #include <float.h>
    
    #include "isnanf-nolibm.h"
    #include "minus-zero.h"
    #include "infinity.h"
    #include "nan.h"
    #include "macros.h"
    
    /* Avoid some warnings from "gcc -Wshadow".
       This file doesn't use the exp() function.  */
    #undef exp
    #define exp exponent
    
    #undef INFINITY
    #undef NAN
    
    #define DOUBLE float
    #define VOLATILE volatile
    #define ISNAN isnanf
    #define INFINITY Infinityf ()
    #define NAN NaNf ()
    #define L_(literal) literal##f
    #define MINUS_ZERO minus_zerof
    #define MAX_EXP FLT_MAX_EXP
    #define MIN_EXP FLT_MIN_EXP
    #define MIN_NORMAL_EXP FLT_MIN_EXP
    #define FREXP frexpf
    #define RANDOM randomf
    #include "test-frexp.h"
    
    int
    main ()
    {
      test_function ();
    
      return 0;
    }