]>
Commit | Line | Data |
---|---|---|
6de9cd9a DN |
1 | ! Copyright 2002 Free Software Foundation, Inc. |
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 | ||
6de9cd9a | 33 | |
644cb69f FXC |
34 | |
35 | ||
36 | #include "config.h" | |
37 | #include "kinds.inc" | |
38 | #include "c99_protos.inc" | |
39 | ||
40 | #if defined (HAVE_GFC_COMPLEX_16) | |
41 | #ifdef HAVE_CLOGL | |
42 | ||
e6472bce | 43 | elemental function _gfortran_specific__log_c16 (parm) |
644cb69f | 44 | complex (kind=16), intent (in) :: parm |
e6472bce | 45 | complex (kind=16) :: _gfortran_specific__log_c16 |
644cb69f | 46 | |
e6472bce | 47 | _gfortran_specific__log_c16 = log (parm) |
6de9cd9a | 48 | end function |
644cb69f FXC |
49 | |
50 | #endif | |
51 | #endif |