blob: 8dd6502a22470f266817c4022716c2ba10b861f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
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) STOP 1
end
|
