]> git.ipfire.org Git - thirdparty/gcc.git/blame - libgfortran/generated/_asin_r8.F90
re PR testsuite/39696 (gcc.dg/tree-ssa/ssa-ccp-25.c scan-tree-dump doesn't work on...
[thirdparty/gcc.git] / libgfortran / generated / _asin_r8.F90
CommitLineData
36ae8a61 1! Copyright 2002, 2007 Free Software Foundation, Inc.
6de9cd9a
DN
2! Contributed by Paul Brook <paul@nowt.org>
3!
57dea9f6 4!This file is part of the GNU Fortran 95 runtime library (libgfortran).
6de9cd9a 5!
57dea9f6
TM
6!GNU libgfortran is free software; you can redistribute it and/or
7!modify it under the terms of the GNU General Public
6de9cd9a 8!License as published by the Free Software Foundation; either
57dea9f6
TM
9!version 2 of the License, or (at your option) any later version.
10
11!In addition to the permissions in the GNU General Public License, the
12!Free Software Foundation gives you unlimited permission to link the
13!compiled version of this file into combinations with other programs,
14!and to distribute those combinations without any restriction coming
15!from the use of this file. (The General Public License restrictions
16!do apply in other respects; for example, they cover modification of
17!the file, and distribution when not linked into a combine
18!executable.)
6de9cd9a 19!
57dea9f6 20!GNU libgfortran is distributed in the hope that it will be useful,
6de9cd9a
DN
21!but WITHOUT ANY WARRANTY; without even the implied warranty of
22!MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
57dea9f6 23!GNU General Public License for more details.
6de9cd9a 24!
57dea9f6
TM
25!You should have received a copy of the GNU General Public
26!License along with libgfortran; see the file COPYING. If not,
fe2ae685
KC
27!write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
28!Boston, MA 02110-1301, USA.
6de9cd9a
DN
29!
30!This file is machine generated.
31
32
644cb69f
FXC
33
34
35
36#include "config.h"
37#include "kinds.inc"
38#include "c99_protos.inc"
39
40#if defined (HAVE_GFC_REAL_8)
41#ifdef HAVE_ASIN
42
e6472bce 43elemental function _gfortran_specific__asin_r8 (parm)
6de9cd9a 44 real (kind=8), intent (in) :: parm
e6472bce 45 real (kind=8) :: _gfortran_specific__asin_r8
6de9cd9a 46
e6472bce 47 _gfortran_specific__asin_r8 = asin (parm)
6de9cd9a 48end function
644cb69f
FXC
49
50#endif
51#endif