! Copyright 2002 Free Software Foundation, Inc. ! Contributed by Paul Brook ! !This file is part of the GNU Fortran 95 runtime library (libgfor). ! !GNU libgfor is free software; you can redistribute it and/or !modify it under the terms of the GNU Lesser General Public !License as published by the Free Software Foundation; either !version 2.1 of the License, or (at your option) any later version. ! !GNU libgfor is distributed in the hope that it will be useful, !but WITHOUT ANY WARRANTY; without even the implied warranty of !MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the !GNU Lesser General Public License for more details. ! !You should have received a copy of the GNU Lesser General Public !License along with libgfor; see the file COPYING. If not, !write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, !Boston, MA 02111-1307, USA. ! !This file is machine generated. elemental function specific__abs_i4 (parm) integer (kind=4), intent (in) :: parm integer (kind=4) :: specific__abs_i4 specific__abs_i4 = abs (parm) end function