Mercurial > hg > CbC > CbC_gcc

annotate libgfortran/ieee/ieee_features.F90 @ 158:494b0b89df80 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 1830386684a0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! Implementation of the IEEE_FEATURES standard intrinsic module
145
1830386684a0 gcc-9.2.0
anatofuz
parents: 131
diff changeset
2 ! Copyright (C) 2013-2020 Free Software Foundation, Inc.
111
kono
parents:
diff changeset
3 ! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
kono
parents:
diff changeset
4 !
kono
parents:
diff changeset
5 ! This file is part of the GNU Fortran runtime library (libgfortran).
kono
parents:
diff changeset
6 !
kono
parents:
diff changeset
7 ! Libgfortran is free software; you can redistribute it and/or
kono
parents:
diff changeset
8 ! modify it under the terms of the GNU General Public
kono
parents:
diff changeset
9 ! License as published by the Free Software Foundation; either
kono
parents:
diff changeset
10 ! version 3 of the License, or (at your option) any later version.
kono
parents:
diff changeset
11 !
kono
parents:
diff changeset
12 ! Libgfortran is distributed in the hope that it will be useful,
kono
parents:
diff changeset
13 ! but WITHOUT ANY WARRANTY; without even the implied warranty of
kono
parents:
diff changeset
14 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
kono
parents:
diff changeset
15 ! GNU General Public License for more details.
kono
parents:
diff changeset
16 !
kono
parents:
diff changeset
17 ! Under Section 7 of GPL version 3, you are granted additional
kono
parents:
diff changeset
18 ! permissions described in the GCC Runtime Library Exception, version
kono
parents:
diff changeset
19 ! 3.1, as published by the Free Software Foundation.
kono
parents:
diff changeset
20 !
kono
parents:
diff changeset
21 ! You should have received a copy of the GNU General Public License and
kono
parents:
diff changeset
22 ! a copy of the GCC Runtime Library Exception along with this program;
kono
parents:
diff changeset
23 ! see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
kono
parents:
diff changeset
24 ! <http://www.gnu.org/licenses/>. */
kono
parents:
diff changeset
25
kono
parents:
diff changeset
26 module IEEE_FEATURES
kono
parents:
diff changeset
27
kono
parents:
diff changeset
28 implicit none
kono
parents:
diff changeset
29 private
kono
parents:
diff changeset
30
kono
parents:
diff changeset
31 type, public :: IEEE_FEATURES_TYPE
kono
parents:
diff changeset
32 private
kono
parents:
diff changeset
33 integer :: hidden
kono
parents:
diff changeset
34 end type
kono
parents:
diff changeset
35
kono
parents:
diff changeset
36 type(IEEE_FEATURES_TYPE), parameter, public :: &
kono
parents:
diff changeset
37 IEEE_DATATYPE = IEEE_FEATURES_TYPE(0), &
kono
parents:
diff changeset
38 IEEE_DENORMAL = IEEE_FEATURES_TYPE(1), &
145
1830386684a0 gcc-9.2.0
anatofuz
parents: 131
diff changeset
39 IEEE_SUBNORMAL = IEEE_FEATURES_TYPE(1), &
111
kono
parents:
diff changeset
40 IEEE_DIVIDE = IEEE_FEATURES_TYPE(2), &
kono
parents:
diff changeset
41 IEEE_HALTING = IEEE_FEATURES_TYPE(3), &
kono
parents:
diff changeset
42 IEEE_INEXACT_FLAG = IEEE_FEATURES_TYPE(4), &
kono
parents:
diff changeset
43 IEEE_INF = IEEE_FEATURES_TYPE(5), &
kono
parents:
diff changeset
44 IEEE_INVALID_FLAG = IEEE_FEATURES_TYPE(6), &
kono
parents:
diff changeset
45 IEEE_NAN = IEEE_FEATURES_TYPE(7), &
kono
parents:
diff changeset
46 IEEE_ROUNDING = IEEE_FEATURES_TYPE(8), &
kono
parents:
diff changeset
47 IEEE_SQRT = IEEE_FEATURES_TYPE(9), &
kono
parents:
diff changeset
48 IEEE_UNDERFLOW_FLAG = IEEE_FEATURES_TYPE(10)
kono
parents:
diff changeset
49
kono
parents:
diff changeset
50 end module IEEE_FEATURES