diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-08-10 17:42:00 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-08-10 17:42:00 +0000 |
| commit | 0238e1e98acdae2b16fcda3d54c3e95a21c0750f (patch) | |
| tree | 5fc8d05c82cb44477b30d242c1ac4d7d7569ca3d /libgfortran | |
| parent | b97e78b712b21e558a112b7bc683bf05ca7cdcc9 (diff) | |
| download | gcc-0238e1e98acdae2b16fcda3d54c3e95a21c0750f.zip gcc-0238e1e98acdae2b16fcda3d54c3e95a21c0750f.tar.gz gcc-0238e1e98acdae2b16fcda3d54c3e95a21c0750f.tar.bz2 | |
[multiple changes]
2015-08-10 Steven G. Kargl <kargl@gcc.gnu.org>
PR libfortran/67140
* gfortran.map: Add _gfortran_mvbits_i16.
* intrinsics/mvbits.c: Generate mvbits for c_int128_t.
2015-08-10 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR libfortran/67140
* gfortran.dg/pr67140.f90: New test.
From-SVN: r226764
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/gfortran.map | 1 | ||||
| -rw-r--r-- | libgfortran/intrinsics/mvbits.c | 8 |
3 files changed, 15 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 0cfc80d..dd9143b 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2015-08-10 Steven G. Kargl <kargl@gcc.gnu.org> + + PR libfortran/67140 + * gfortran.map: Add _gfortran_mvbits_i16. + * intrinsics/mvbits.c: Generate mvbits for c_int128_t. + 2015-08-09 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> PR libfortran/66936 diff --git a/libgfortran/gfortran.map b/libgfortran/gfortran.map index 73cdde7..6684063 100644 --- a/libgfortran/gfortran.map +++ b/libgfortran/gfortran.map @@ -1284,6 +1284,7 @@ GFORTRAN_1.7 { __ieee_arithmetic_MOD_ieee_value_16; __ieee_exceptions_MOD_ieee_support_flag_10; __ieee_exceptions_MOD_ieee_support_flag_16; + _gfortran_mvbits_i16; } GFORTRAN_1.6; F2C_1.0 { diff --git a/libgfortran/intrinsics/mvbits.c b/libgfortran/intrinsics/mvbits.c index 19b8fc9..cb9dd6c 100644 --- a/libgfortran/intrinsics/mvbits.c +++ b/libgfortran/intrinsics/mvbits.c @@ -83,4 +83,12 @@ SUB_NAME (const TYPE *from, const int *frompos, const int *len, TYPE *to, # undef SUB_NAME # undef TYPE # undef UTYPE + +# define TYPE GFC_INTEGER_16 +# define UTYPE GFC_UINTEGER_16 +# define SUB_NAME mvbits_i16 +# include "mvbits.c" +# undef SUB_NAME +# undef TYPE +# undef UTYPE #endif |