gcc/fortran/mathbuiltins.def

   1 /* Copyright (C) 2004, 2005, 2007, 2008, 2010, 2012
   2    Free Software Foundation, Inc.
   3
   4 This file is part of GCC.
   5
   6 GCC is free software; you can redistribute it and/or modify it under
   7 the terms of the GNU General Public License as published by the Free
   8 Software Foundation; either version 3, or (at your option) any later
   9 version.
  10
  11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14 for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GCC; see the file COPYING3.  If not see
  18 <http://www.gnu.org/licenses/>.  */
  19
  20 /* DEFINE_MATH_BUILTIN (CODE, NAME, ARGTYPE)
  21    NAME   The name of the builtin
  22    SNAME  The name of the builtin as a string
  23    ARGTYPE The type of the arguments.  See f95-lang.c
  24
  25    Use DEFINE_MATH_BUILTIN_C if the complex versions of the builtin are
  26    also available.  */
  27 DEFINE_MATH_BUILTIN_C (ACOS,  "acos",   0)
  28 DEFINE_MATH_BUILTIN_C (ACOSH, "acosh",  0)
  29 DEFINE_MATH_BUILTIN_C (ASIN,  "asin",   0)
  30 DEFINE_MATH_BUILTIN_C (ASINH, "asinh",  0)
  31 DEFINE_MATH_BUILTIN_C (ATAN,  "atan",   0)
  32 DEFINE_MATH_BUILTIN_C (ATANH, "atanh",  0)
  33 DEFINE_MATH_BUILTIN   (ATAN2, "atan2",  1)
  34 DEFINE_MATH_BUILTIN_C (COS,   "cos",    0)
  35 DEFINE_MATH_BUILTIN_C (COSH,  "cosh",   0)
  36 DEFINE_MATH_BUILTIN_C (EXP,   "exp",    0)
  37 DEFINE_MATH_BUILTIN_C (LOG,   "log",    0)
  38 DEFINE_MATH_BUILTIN_C (LOG10, "log10",  0)
  39 DEFINE_MATH_BUILTIN_C (SIN,   "sin",    0)
  40 DEFINE_MATH_BUILTIN_C (SINH,  "sinh",   0)
  41 DEFINE_MATH_BUILTIN_C (SQRT,  "sqrt",   0)
  42 DEFINE_MATH_BUILTIN_C (TAN,   "tan",    0)
  43 DEFINE_MATH_BUILTIN_C (TANH,  "tanh",   0)
  44 DEFINE_MATH_BUILTIN   (J0,    "j0",     0)
  45 DEFINE_MATH_BUILTIN   (J1,    "j1",     0)
  46 DEFINE_MATH_BUILTIN   (JN,    "jn",     2)
  47 DEFINE_MATH_BUILTIN   (Y0,    "y0",     0)
  48 DEFINE_MATH_BUILTIN   (Y1,    "y1",     0)
  49 DEFINE_MATH_BUILTIN   (YN,    "yn",     2)
  50 DEFINE_MATH_BUILTIN   (ERF,   "erf",    0)
  51 DEFINE_MATH_BUILTIN   (ERFC,  "erfc",   0)
  52 DEFINE_MATH_BUILTIN   (TGAMMA,"tgamma", 0)
  53 DEFINE_MATH_BUILTIN   (LGAMMA,"lgamma", 0)
  54 DEFINE_MATH_BUILTIN   (HYPOT, "hypot",  1)
  55
  56 /* OTHER_BUILTIN (CODE, NAME, PROTOTYPE_TYPE, CONST)
  57    For floating-point builtins that do not directly correspond to a
  58    Fortran intrinsic. This is used to map the different variants (float,
  59    double and long double) and to build the quad-precision decls.  */
  60 OTHER_BUILTIN (CABS,      "cabs",      cabs,    true)
  61 OTHER_BUILTIN (COPYSIGN,  "copysign",  2,       true)
  62 OTHER_BUILTIN (CPOW,      "cpow",      cpow,    true)
  63 OTHER_BUILTIN (FABS,      "fabs",      1,       true)
  64 OTHER_BUILTIN (FMOD,      "fmod",      2,       true)
  65 OTHER_BUILTIN (FREXP,     "frexp",     frexp,   false)
  66 OTHER_BUILTIN (LLROUND,   "llround",   llround, true)
  67 OTHER_BUILTIN (LROUND,    "lround",    lround,  true)
  68 OTHER_BUILTIN (IROUND,    "iround",    iround,  true)
  69 OTHER_BUILTIN (NEXTAFTER, "nextafter", 2,       true)
  70 OTHER_BUILTIN (POW,       "pow",       1,       true)
  71 OTHER_BUILTIN (ROUND,     "round",     1,       true)
  72 OTHER_BUILTIN (SCALBN,    "scalbn",    scalbn,  true)
  73 OTHER_BUILTIN (TRUNC,     "trunc",     1,       true)