]>
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, | |
6de9cd9a DN |
27 | !write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
28 | !Boston, MA 02111-1307, USA. | |
29 | ! | |
30 | !This file is machine generated. | |
31 | ||
32 | ||
33 | elemental function specific__abs_i8 (parm) | |
34 | integer (kind=8), intent (in) :: parm | |
35 | integer (kind=8) :: specific__abs_i8 | |
36 | ||
37 | specific__abs_i8 = abs (parm) | |
38 | end function |