URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libstdc++-v3/] [testsuite/] [tr1/] [5_numerical_facilities/] [random/] [ranlux4_01.cc] - Rev 742
Compare with Previous | Blame | View Log
// 2006-08-22 Paolo Carlini <pcarlini@suse.de> // // Copyright (C) 2006, 2009 Free Software Foundation, Inc. // // This file is part of the GNU ISO C++ Library. This library 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, or (at your option) // any later version. // // This library 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 library; see the file COPYING3. If not see // <http://www.gnu.org/licenses/>. // 5.1.5 Engines with predefined parameters // 5.1.5 [3] #include <tr1/random> #include <testsuite_hooks.h> void test01() { bool test __attribute__((unused)) = true; std::tr1::ranlux4_01 a; for (int i = 0; i < 9999; ++i) a(); #if _GLIBCXX_USE_C99_MATH_TR1 VERIFY( a() == 8587295 * std::tr1::ldexp(float(1), -24) ); #else VERIFY( a() == 8587295 * std::pow(float(2), -24) ); #endif } int main() { test01(); return 0; }