git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

[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
This commit is contained in:
Steven G. Kargl 2015-08-10 17:42:00 +00:00
parent b97e78b712
commit 0238e1e98a
5 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
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> 2015-08-10 Thomas Schwinge <thomas@codesourcery.com>
PR libgomp/65742 PR libgomp/65742

12
gcc/testsuite/gfortran.dg/pr67140.f90 Normal file
View File

@ -0,0 +1,12 @@
! { 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

6
libgfortran/ChangeLog
View File

@ -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> 2015-08-09 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR libfortran/66936 PR libfortran/66936

1
libgfortran/gfortran.map
View File

@ -1284,6 +1284,7 @@ GFORTRAN_1.7 {
__ieee_arithmetic_MOD_ieee_value_16; __ieee_arithmetic_MOD_ieee_value_16;
__ieee_exceptions_MOD_ieee_support_flag_10; __ieee_exceptions_MOD_ieee_support_flag_10;
__ieee_exceptions_MOD_ieee_support_flag_16; __ieee_exceptions_MOD_ieee_support_flag_16;
_gfortran_mvbits_i16;
} GFORTRAN_1.6; } GFORTRAN_1.6;
F2C_1.0 { F2C_1.0 {

8
libgfortran/intrinsics/mvbits.c
View File

@ -83,4 +83,12 @@ SUB_NAME (const TYPE *from, const int *frompos, const int *len, TYPE *to,
# undef SUB_NAME # undef SUB_NAME
# undef TYPE # undef TYPE
# undef UTYPE # 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 #endif