URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [rtos/] [ecos-3.0/] [packages/] [language/] [c/] [libm/] [current/] [tests/] [vectors/] [exp.c] - Rev 786
Compare with Previous | Blame | View Log
//=========================================================================== // // exp.c // // Test of exp() math library function // //=========================================================================== // ####ECOSGPLCOPYRIGHTBEGIN#### // ------------------------------------------- // This file is part of eCos, the Embedded Configurable Operating System. // Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. // // eCos 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 2 or (at your option) any later // version. // // eCos 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 eCos; if not, write to the Free Software Foundation, Inc., // 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. // // As a special exception, if other files instantiate templates or use // macros or inline functions from this file, or you compile this file // and link it with other works to produce a work based on this file, // this file does not by itself cause the resulting work to be covered by // the GNU General Public License. However the source code for this file // must still be made available in accordance with section (3) of the GNU // General Public License v2. // // This exception does not invalidate any other reasons why a work based // on this file might be covered by the GNU General Public License. // ------------------------------------------- // ####ECOSGPLCOPYRIGHTEND#### //=========================================================================== //#####DESCRIPTIONBEGIN#### // // Author(s): jlarmour // Contributors: jlarmour // Date: 1998-02-13 // Purpose: // Description: // Usage: // //####DESCRIPTIONEND#### // //=========================================================================== // Declarations for test system: // // TESTCASE_TYPE=CYG_TEST_MODULE // CONFIGURATION #include <pkgconf/libm.h> // Configuration header // INCLUDES #include <cyg/infra/cyg_type.h> // Common type definitions and support #include <cyg/infra/testcase.h> // Test infrastructure #include <math.h> // Header for this package #include <sys/ieeefp.h> // Cyg_libm_ieee_double_shape_type #include "vectors/vector_support.h"// extra support for math tests #include "vectors/exp.h" // FUNCTIONS static void test( CYG_ADDRWORD data ) { cyg_ucount32 vec_size; cyg_bool ret; vec_size = sizeof(exp_vec) / sizeof(Cyg_libm_test_double_vec_t); ret = doTestVec( (CYG_ADDRWORD) &exp, CYG_LIBM_TEST_VEC_DOUBLE, CYG_LIBM_TEST_VEC_NONE, CYG_LIBM_TEST_VEC_DOUBLE, &exp_vec[0], vec_size ); if (ret==true) { CYG_TEST_PASS("exp() is stable"); } // if else { CYG_TEST_FAIL("exp() failed tests"); } // else CYG_TEST_FINISH("Finished tests from testcase " __FILE__ " for Math " "library exp() function"); } // test() int main(int argc, char *argv[]) { CYG_TEST_INIT(); CYG_TEST_INFO("Starting tests from testcase " __FILE__ " for Math library " "exp() function"); START_TEST( test ); CYG_TEST_PASS_FINISH("Testing is not applicable to this configuration"); } // main() // EOF exp.c