diff options
Diffstat (limited to 'libgfortran/intrinsics/pack_generic.c')
| -rw-r--r-- | libgfortran/intrinsics/pack_generic.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c index 2d80c64..5c54fe3 100644 --- a/libgfortran/intrinsics/pack_generic.c +++ b/libgfortran/intrinsics/pack_generic.c @@ -307,7 +307,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array, /* 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) @@ -339,7 +339,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array, /* 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) |