This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[gfortran] Minimum exponents for real kinds
- From: Paul Brook <paul at nowt dot org>
- To: "gcc-patches at gcc dot gnu dot org" <gcc-patches at gcc dot gnu dot org>
- Date: Fri, 29 Aug 2003 20:18:09 +0100
- Subject: [gfortran] Minimum exponents for real kinds
The following patch changes the minimum exponents for real numbers to those
defined in IEEE standards (and by glibc).
Applied to tree-ssa branch.
Paul
2003-08-29 Paul Brook <paul@nowt.org>
* arith.c (gfc_real_kinds): Use correct minimum exponents.
diff -urpxCVS clean/tree-ssa/gcc/fortran/arith.c gcc/gcc/fortran/arith.c
--- clean/tree-ssa/gcc/fortran/arith.c 2003-08-02 01:25:05.000000000 +0100
+++ gcc/gcc/fortran/arith.c 2003-08-29 20:04:21.000000000 +0100
@@ -69,8 +69,8 @@ gfc_logical_info gfc_logical_kinds[] = {
};
gfc_real_info gfc_real_kinds[] = {
- DEF_GFC_REAL_KIND (4, 2, 24, -148, 128),
- DEF_GFC_REAL_KIND (8, 2, 53, -1073, 1024),
+ DEF_GFC_REAL_KIND (4, 2, 24, -125, 128),
+ DEF_GFC_REAL_KIND (8, 2, 53, -1021, 1024),
DEF_GFC_REAL_KIND (0, 0, 0, 0, 0)
};