bug fix from Gabriele

Random/ChangeLog

+
+2018-03-14 Gabriele Cosmo <Gabriele.Cosmo@cern.ch>
+
+* src/Ranlux64Engine.cc: bug fix
+
 ==============================
 15.02.18 Release CLHEP-2.4.0.2
 ==============================

Random/src/Ranlux64Engine.cc

@@ -423,10 +423,10 @@ void Ranlux64Engine::setSeed(long seed, int lux) {
   } 
   // are we on a 64bit machine?
   if( sizeof(long) >= 8 ) {
-     long topbits1, topbits2;
+     int64_t topbits1, topbits2;
 #ifdef USING_VISUAL
-     topbits1 = ( seed >> 32) & 0xffff ;
-     topbits2 = ( seed >> 48) & 0xffff ;
+     topbits1 = ( (int64_t) seed >> 32) & 0xffff ;
+     topbits2 = ( (int64_t) seed >> 48) & 0xffff ;
 #else
      topbits1 = detail::rshift<32>(seed) & 0xffff ;
      topbits2 = detail::rshift<48>(seed) & 0xffff ;