mirror of https://github.com/CGAL/cgal
59 lines
2.0 KiB
C
59 lines
2.0 KiB
C
// Copyright (c) 2004 Utrecht University (The Netherlands),
|
|
// ETH Zurich (Switzerland), Freie Universitaet Berlin (Germany),
|
|
// INRIA Sophia-Antipolis (France), Martin-Luther-University Halle-Wittenberg
|
|
// (Germany), Max-Planck-Institute Saarbruecken (Germany), RISC Linz (Austria),
|
|
// and Tel-Aviv University (Israel). All rights reserved.
|
|
//
|
|
// This file is part of CGAL (www.cgal.org); you can redistribute it and/or
|
|
// modify it under the terms of the GNU Lesser General Public License as
|
|
// published by the Free Software Foundation; version 2.1 of the License.
|
|
// See the file LICENSE.LGPL distributed with CGAL.
|
|
//
|
|
// Licensees holding a valid commercial license may use this file in
|
|
// accordance with the commercial license agreement provided with the software.
|
|
//
|
|
// This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
|
|
// WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
|
|
//
|
|
// $URL$
|
|
// $Id$
|
|
//
|
|
//
|
|
// Author(s) : Sylvain Pion
|
|
|
|
// ---------------------------------------------------------------------
|
|
// A short test program to evaluate a C++ compiler.
|
|
// This program is used by cgal_configure.
|
|
// The following documentation will be pasted in the generated configfile.
|
|
// ---------------------------------------------------------------------
|
|
|
|
//| This flag is set if the compiler bugs with special features with IEEE 754
|
|
//| handling, concerning is_valid() and is_finite() testing of infinity and
|
|
//| nans. The workaround is to use bitfield operations.
|
|
//| At least VC++, Borland and PGCC have the bug.
|
|
|
|
bool
|
|
is_valid(double d)
|
|
{ return (d == d); }
|
|
|
|
bool
|
|
is_finite(double d)
|
|
{ return (d == d) && is_valid(d-d); }
|
|
|
|
int main()
|
|
{
|
|
double zero = 0;
|
|
double inf = 1/zero;
|
|
double nan = zero*inf;
|
|
|
|
bool b = true;
|
|
b = b && is_valid(inf);
|
|
b = b && !is_valid(nan);
|
|
b = b && !is_finite(inf);
|
|
b = b && !is_finite(nan);
|
|
|
|
if (!b)
|
|
return -1;
|
|
return 0;
|
|
}
|