X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=libstdc%2B%2B-v3%2Ftestsuite%2Ftr1%2F5_numerical_facilities%2Frandom%2Franlux3_01.cc;fp=libstdc%2B%2B-v3%2Ftestsuite%2Ftr1%2F5_numerical_facilities%2Frandom%2Franlux3_01.cc;h=388e79efeed3f3de13131700d7daa28f16f5d963;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=0000000000000000000000000000000000000000;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git diff --git a/libstdc++-v3/testsuite/tr1/5_numerical_facilities/random/ranlux3_01.cc b/libstdc++-v3/testsuite/tr1/5_numerical_facilities/random/ranlux3_01.cc new file mode 100644 index 00000000..388e79ef --- /dev/null +++ b/libstdc++-v3/testsuite/tr1/5_numerical_facilities/random/ranlux3_01.cc @@ -0,0 +1,47 @@ +// 2006-08-22 Paolo Carlini +// +// 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 +// . + +// 5.1.5 Engines with predefined parameters +// 5.1.5 [3] + +#include +#include +#include + +void +test01() +{ + bool test __attribute__((unused)) = true; + + std::tr1::ranlux3_01 a; + for (int i = 0; i < 9999; ++i) + a(); + +#if _GLIBCXX_USE_C99_MATH_TR1 + VERIFY( a() == 5957620 * std::tr1::ldexp(float(1), -24) ); +#else + VERIFY( a() == 5957620 * std::pow(float(2), -24) ); +#endif +} + +int main() +{ + test01(); + return 0; +}