subroutine test_anyinteger_to_string() call unit_check_start('anyinteger_to_string',msg='') call unit_check('anyinteger_to_string',anyinteger_to_string(huge(0_int8)) .eq.'127', huge(0_int8)) call unit_check('anyinteger_to_string',anyinteger_to_string(huge(0_int16)).eq.'32767', huge(0_int16)) call unit_check('anyinteger_to_string',anyinteger_to_string(huge(0_int32)).eq.'2147483647', huge(0_int32)) call unit_check('anyinteger_to_string',anyinteger_to_string(huge(0_int64)).eq.'9223372036854775807', huge(0_int64)) call unit_check_done('anyinteger_to_string',msg='') end subroutine test_anyinteger_to_string