diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-08-10 17:42:00 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-08-10 17:42:00 +0000 |
| commit | f4256456e8e9b5d0fd5a3388dcdd75b9d562c88e (patch) | |
| tree | 5fc8d05c82cb44477b30d242c1ac4d7d7569ca3d /libgfortran/intrinsics | |
| parent | f212338e41d10436a48f04ea499f63dce5bf50ef (diff) | |
| download | gcc-f4256456e8e9b5d0fd5a3388dcdd75b9d562c88e.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@226764 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/intrinsics')
| -rw-r--r-- | libgfortran/intrinsics/mvbits.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/mvbits.c b/libgfortran/intrinsics/mvbits.c index 19b8fc9f6ed..cb9dd6c30bd 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 |