libstdc++-v3/testsuite/26_numerics/complex/value_operations/1.cc

   1 // { dg-do run { xfail broken_cplxf_arg } }
   2 // { dg-options "-O0" }
   3 // 2000-11-20
   4 // Benjamin Kosnik bkoz@redhat.com
   5
   6 // Copyright (C) 2000-2019 Free Software Foundation, Inc.
   7 //
   8 // This file is part of the GNU ISO C++ Library.  This library is free
   9 // software; you can redistribute it and/or modify it under the
  10 // terms of the GNU General Public License as published by the
  11 // Free Software Foundation; either version 3, or (at your option)
  12 // any later version.
  13
  14 // This library is distributed in the hope that it will be useful,
  15 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 // GNU General Public License for more details.
  18
  19 // You should have received a copy of the GNU General Public License along
  20 // with this library; see the file COPYING3.  If not see
  21 // <http://www.gnu.org/licenses/>.
  22
  23 #include <complex>
  24 #include <testsuite_hooks.h>
  25
  26 void test01()
  27 {
  28  using namespace std;
  29  typedef complex<double> complex_type;
  30  const double cd1 = -11.451;
  31  const double cd2 = -442.1533;
  32
  33  complex_type a(cd1, cd2);
  34  double d;
  35  d = a.real();
  36  VERIFY( d == cd1 );
  37
  38  d = a.imag();
  39  VERIFY( d == cd2 );
  40
  41  complex_type c(cd1, cd2);
  42  double d6 = abs(c);
  43  VERIFY( d6 >= 0 );
  44
  45  double d7 = arg(c);
  46  double d8 = atan2(c.imag(), c.real());
  47  VERIFY( d7 == d8 );
  48
  49  double d9 = norm(c);
  50  double d10 = d6 * d6;
  51  VERIFY( d9 - d10 == 0 );
  52
  53  complex_type e __attribute__((unused)) = conj(c);
  54
  55  complex_type f = polar(std::abs(c.imag()), 0.0);
  56  VERIFY( f.real() != 0 );
  57 }
  58
  59
  60 int main()
  61 {
  62   test01();
  63   return 0;
  64 }