https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67140
Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |fxcoudert at gcc dot gnu.org
--- Comment #3 from Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> ---
(In reply to kargl from comment #2)
> Patched built and tested with OP's code.
> Regression test passed.
Patch approved for trunk, with the following testcase (just double-check that
it passes!):
! { 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
