libgfortran/generated/_sign_i4.F90

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