Home | History | Annotate | Line # | Download | only in generated 
      1  1.1.1.4  mrg !   Copyright (C) 2002-2024 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 #include "config.h"
     30      1.1  mrg #include "kinds.inc"
     31      1.1  mrg #include "c99_protos.inc"
     32      1.1  mrg 
     33      1.1  mrg #if defined (HAVE_GFC_REAL_10)
     34      1.1  mrg 
     35      1.1  mrg 
     36      1.1  mrg 
     37      1.1  mrg elemental function _gfortran_specific__mod_r10 (p1, p2)
     38      1.1  mrg    real (kind=10), intent (in) :: p1, p2
     39      1.1  mrg    real (kind=10) :: _gfortran_specific__mod_r10
     40      1.1  mrg 
     41      1.1  mrg    _gfortran_specific__mod_r10 = mod (p1, p2)
     42      1.1  mrg end function
     43      1.1  mrg 
     44      1.1  mrg 
     45      1.1  mrg 
     46      1.1  mrg #endif
     47