From 0238e1e98acdae2b16fcda3d54c3e95a21c0750f Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Mon, 10 Aug 2015 17:42:00 +0000 Subject: [multiple changes] 2015-08-10 Steven G. Kargl PR libfortran/67140 * gfortran.map: Add _gfortran_mvbits_i16. * intrinsics/mvbits.c: Generate mvbits for c_int128_t. 2015-08-10 Francois-Xavier Coudert PR libfortran/67140 * gfortran.dg/pr67140.f90: New test. From-SVN: r226764 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/pr67140.f90 | 12 ++++++++++++ 2 files changed, 17 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/pr67140.f90 (limited to 'gcc') diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index bf858e2..146a730 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2015-08-10 Francois-Xavier Coudert + + PR libfortran/67140 + * gfortran.dg/pr67140.f90: New test. + 2015-08-10 Thomas Schwinge PR libgomp/65742 diff --git a/gcc/testsuite/gfortran.dg/pr67140.f90 b/gcc/testsuite/gfortran.dg/pr67140.f90 new file mode 100644 index 0000000..0a6782c --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr67140.f90 @@ -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 -- cgit v1.1