1! PR fortran/32823 2! { dg-do compile } 3 4module token_module 5 6 integer, parameter :: INT8 = SELECTED_INT_KIND(16) 7 integer, parameter :: REAL8 = SELECTED_REAL_KIND(12) 8 9contains 10 subroutine token_allreduce_i8_v(dowhat, array, result, length) 11 12 13 character(*), intent(in) :: dowhat 14 integer, intent(in) :: length 15 integer(INT8), intent(in) :: array(*) 16 integer(INT8), intent(inout) :: result(*) 17 18 19 real(REAL8) :: copy_r8(length), result_r8(length) 20 21 22 result(1:length) = int(result_r8(1:length), INT8) 23 24 25 end subroutine token_allreduce_i8_v 26 27end module token_module 28