Home | History | Annotate | Line # | Download | only in generated 
      1  1.1.1.3  mrg !   Copyright (C) 2002-2022 Free Software Foundation, Inc.
      2      1.1  mrg !   Contributed by Paul Brook <paul@nowt.org>
      3      1.1  mrg !
      4      1.1  mrg !This file is part of the GNU Fortran 95 runtime library (libgfortran).
      5      1.1  mrg !
      6      1.1  mrg !GNU libgfortran is free software; you can redistribute it and/or
      7      1.1  mrg !modify it under the terms of the GNU General Public
      8      1.1  mrg !License as published by the Free Software Foundation; either
      9      1.1  mrg !version 3 of the License, or (at your option) any later version.
     10      1.1  mrg 
     11      1.1  mrg !GNU libgfortran is distributed in the hope that it will be useful,
     12      1.1  mrg !but WITHOUT ANY WARRANTY; without even the implied warranty of
     13      1.1  mrg !MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     14      1.1  mrg !GNU General Public License for more details.
     15      1.1  mrg !
     16      1.1  mrg !Under Section 7 of GPL version 3, you are granted additional
     17      1.1  mrg !permissions described in the GCC Runtime Library Exception, version
     18      1.1  mrg !3.1, as published by the Free Software Foundation.
     19      1.1  mrg !
     20      1.1  mrg !You should have received a copy of the GNU General Public License and
     21      1.1  mrg !a copy of the GCC Runtime Library Exception along with this program;
     22      1.1  mrg !see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
     23      1.1  mrg !.
     24      1.1  mrg !
     25      1.1  mrg !This file is machine generated.
     26      1.1  mrg 
     27      1.1  mrg 
     28      1.1  mrg 
     29      1.1  mrg 
     30      1.1  mrg 
     31      1.1  mrg #include "config.h"
     32      1.1  mrg #include "kinds.inc"
     33      1.1  mrg #include "c99_protos.inc"
     34      1.1  mrg 
     35      1.1  mrg #if defined (HAVE_GFC_COMPLEX_10)
     36      1.1  mrg #ifdef HAVE_CSQRTL
     37      1.1  mrg 
     38      1.1  mrg elemental function _gfortran_specific__sqrt_c10 (parm)
     39      1.1  mrg    complex (kind=10), intent (in) :: parm
     40      1.1  mrg    complex (kind=10) :: _gfortran_specific__sqrt_c10
     41      1.1  mrg 
     42      1.1  mrg    _gfortran_specific__sqrt_c10 = sqrt (parm)
     43      1.1  mrg end function
     44      1.1  mrg 
     45      1.1  mrg #endif
     46      1.1  mrg #endif
     47