diff options
Diffstat (limited to 'libgfortran/intrinsics/unpack_generic.c')
-rw-r--r-- | libgfortran/intrinsics/unpack_generic.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libgfortran/intrinsics/unpack_generic.c b/libgfortran/intrinsics/unpack_generic.c index 0366615..a24c284 100644 --- a/libgfortran/intrinsics/unpack_generic.c +++ b/libgfortran/intrinsics/unpack_generic.c @@ -265,7 +265,7 @@ unpack1 (gfc_array_char *ret, const gfc_array_char *vector, /* FIXME: This here is a hack, which will have to be removed when the array descriptor is reworked. Currently, we don't store the kind value for the type, but only the size. Because on targets with - __float128, we have sizeof(logn double) == sizeof(__float128), + _Float128, we have sizeof(long double) == sizeof(_Float128), we cannot discriminate here and have to fall back to the generic handling (which is suboptimal). */ #if !defined(GFC_REAL_16_IS_FLOAT128) @@ -297,7 +297,7 @@ unpack1 (gfc_array_char *ret, const gfc_array_char *vector, /* FIXME: This here is a hack, which will have to be removed when the array descriptor is reworked. Currently, we don't store the kind value for the type, but only the size. Because on targets with - __float128, we have sizeof(logn double) == sizeof(__float128), + _Float128, we have sizeof(long double) == sizeof(_Float128), we cannot discriminate here and have to fall back to the generic handling (which is suboptimal). */ #if !defined(GFC_REAL_16_IS_FLOAT128) @@ -486,7 +486,7 @@ unpack0 (gfc_array_char *ret, const gfc_array_char *vector, /* FIXME: This here is a hack, which will have to be removed when the array descriptor is reworked. Currently, we don't store the kind value for the type, but only the size. Because on targets with - __float128, we have sizeof(logn double) == sizeof(__float128), + _Float128, we have sizeof(long double) == sizeof(_Float128), we cannot discriminate here and have to fall back to the generic handling (which is suboptimal). */ #if !defined(GFC_REAL_16_IS_FLOAT128) @@ -518,7 +518,7 @@ unpack0 (gfc_array_char *ret, const gfc_array_char *vector, /* FIXME: This here is a hack, which will have to be removed when the array descriptor is reworked. Currently, we don't store the kind value for the type, but only the size. Because on targets with - __float128, we have sizeof(logn double) == sizeof(__float128), + _Float128, we have sizeof(long double) == sizeof(_Float128), we cannot discriminate here and have to fall back to the generic handling (which is suboptimal). */ #if !defined(GFC_REAL_16_IS_FLOAT128) |