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