| ! { 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 |