aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/trans-types.c
diff options
context:
space:
mode:
authorSteven G. Kargl <kargl@gcc.gnu.org>2017-02-07 21:28:08 +0000
committerSteven G. Kargl <kargl@gcc.gnu.org>2017-02-07 21:28:08 +0000
commit26349ecf304ce17acd06e4cb8c631b706d2f1c35 (patch)
treec2fad090dcb3b8787bc1b5d56c39255ede69d8ea /gcc/fortran/trans-types.c
parent2ad31830bf2ede2def722037cd467d124f012086 (diff)
downloadgcc-26349ecf304ce17acd06e4cb8c631b706d2f1c35.zip
gcc-26349ecf304ce17acd06e4cb8c631b706d2f1c35.tar.gz
gcc-26349ecf304ce17acd06e4cb8c631b706d2f1c35.tar.bz2
trans-types.c (gfc_get_int_kind_from_width_isofortranen): Choose REAL type with the widest precision if...
2017-02-04 Steven G. Kargl <kargl@gcc.gnu.org> * trans-types.c (gfc_get_int_kind_from_width_isofortranen): Choose REAL type with the widest precision if two (or more) have the same storage size. From-SVN: r245255
Diffstat (limited to 'gcc/fortran/trans-types.c')
-rw-r--r--gcc/fortran/trans-types.c29
1 files changed, 22 insertions, 7 deletions
diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index 759b80e..fc5e486 100644
--- a/gcc/fortran/trans-types.c
+++ b/gcc/fortran/trans-types.c
@@ -234,27 +234,42 @@ gfc_get_int_kind_from_width_isofortranenv (int size)
return -1;
}
-/* Get the kind number corresponding to a real of given storage size,
- following the required return values for ISO_FORTRAN_ENV REAL* constants:
- -2 is returned if we support a kind of larger size, -1 otherwise. */
+
+/* Get the kind number corresponding to a real of a given storage size.
+ If two real's have the same storage size, then choose the real with
+ the largest precision. If a kind type is unavailable and a real
+ exists with wider storage, then return -2; otherwise, return -1. */
+
int
gfc_get_real_kind_from_width_isofortranenv (int size)
{
- int i;
+ int digits, i, kind;
size /= 8;
+ kind = -1;
+ digits = 0;
+
/* Look for a kind with matching storage size. */
for (i = 0; gfc_real_kinds[i].kind != 0; i++)
if (int_size_in_bytes (gfc_get_real_type (gfc_real_kinds[i].kind)) == size)
- return gfc_real_kinds[i].kind;
+ {
+ if (gfc_real_kinds[i].digits > digits)
+ {
+ digits = gfc_real_kinds[i].digits;
+ kind = gfc_real_kinds[i].kind;
+ }
+ }
+
+ if (kind != -1)
+ return kind;
/* Look for a kind with larger storage size. */
for (i = 0; gfc_real_kinds[i].kind != 0; i++)
if (int_size_in_bytes (gfc_get_real_type (gfc_real_kinds[i].kind)) > size)
- return -2;
+ kind = -2;
- return -1;
+ return kind;
}