[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

gcc/testsuite/ChangeLog

+2015-08-10  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	PR libfortran/67140
+	* gfortran.dg/pr67140.f90: New test.
+
 2015-08-10  Thomas Schwinge  <thomas@codesourcery.com>
 
 	PR libgomp/65742

gcc/testsuite/gfortran.dg/pr67140.f90

+! { dg-do run }
+!
+! Check that MVBITS is available for the largest integer kind (PR 67140)
+!
+program test
+  use iso_fortran_env
+  integer, parameter :: k = integer_kinds(size(integer_kinds))
+
+  integer(kind=k) :: i = 6
+  call mvbits(7_k,2,2,i,0)
+  if (i /= 5) call abort
+end

libgfortran/ChangeLog

+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

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 {

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