250822.215125.CST revise the definition of seed in test_*.f90, as the original one may overflow

Author: zaikunzhang

fortran/tests/test_bobyqa.f90

@@ -173,7 +173,7 @@ subroutine test_solver(probs, mindim, maxdim, nrand, randseed, testdim)
     n = merge(bign, largen, testdim_loc == 'big')
     call construct(prob, probname, n)
     do irand = 1, 1  ! The test is expensive
-        seed = int(sum(istr(solname)) * sum(istr(probname)) + irand * RP + n + randseed_loc)
+        seed = int(sum(istr(solname)) + sum(istr(probname)) + irand * RP + n + randseed_loc)
         call setseed(seed)
         npt = int(4.0 * rand() * real(n, RP), kind(npt))
         iprint = 2_IK
@@ -207,7 +207,7 @@ subroutine test_solver(probs, mindim, maxdim, nrand, randseed, testdim)
         do irand = 1, max(0_IK, nrand_loc) + 1_IK
             ! Initialize the random seed using IRAND, RP, and RANDSEED_LOC. Do not include IK so
             ! that the results for different IK are the same.
-            seed = int(sum(istr(solname)) * sum(istr(probname)) + irand * RP + randseed_loc)
+            seed = int(sum(istr(solname)) + sum(istr(probname)) + irand * RP + randseed_loc)
             call setseed(seed)
 
             ! Set the problem dimension N to a random value in the range [MINDIM, MAXDIM].

fortran/tests/test_cobyla.f90

@@ -180,7 +180,7 @@ subroutine test_solver(probs, mindim, maxdim, nrand, randseed, testdim)
     probname = bigprob
     n = merge(bign, largen, testdim_loc == 'big')
     do irand = 1, 1  ! The test is expensive
-        seed = int(sum(istr(solname)) * sum(istr(probname)) + irand * RP + n + randseed_loc)
+        seed = int(sum(istr(solname)) + sum(istr(probname)) + irand * RP + n + randseed_loc)
         call setseed(seed)
         m = int(min(int(3.0_RP * rand() * real(n, RP)), 10**min(range(0), range(0_IK))), IK)
         m = min(m, floor(real(huge(m)) / 8.0, IK) - n - 2_IK)  ! Avoid integer overflow when calculating UNIT_MEMO in PREPROC/HISTORY
@@ -239,7 +239,7 @@ subroutine test_solver(probs, mindim, maxdim, nrand, randseed, testdim)
         do irand = 1, max(0_IK, nrand_loc) + 1_IK
             ! Initialize the random seed using IRAND, RP, and RANDSEED_LOC. Do not include IK so
             ! that the results for different IK are the same.
-            seed = int(sum(istr(solname)) * sum(istr(probname)) + irand * RP + randseed_loc)
+            seed = int(sum(istr(solname)) + sum(istr(probname)) + irand * RP + randseed_loc)
             call setseed(seed)
 
             ! Set the problem dimension N to a random value in the range [MINDIM, MAXDIM].

fortran/tests/test_lincoa.f90

@@ -211,7 +211,7 @@ subroutine test_solver(probs, mindim, maxdim, nrand, randseed, testdim)
     probname = bigprob
     n = merge(bign, largen, testdim_loc == 'big')
     do irand = 1, 1  ! The test is expensive
-        seed = int(sum(istr(solname)) * sum(istr(probname)) + irand * RP + n + randseed_loc)
+        seed = int(sum(istr(solname)) + sum(istr(probname)) + irand * RP + n + randseed_loc)
         call setseed(seed)
         m = int(min(int(2.0_RP * rand() * real(n, RP)), 10**min(range(0), range(0_IK))), IK)
         m = min(m, floor(real(huge(m)) / 8.0, IK) - n - 2_IK)  ! Avoid integer overflow when calculating UNIT_MEMO in PREPROC/HISTORY
@@ -267,7 +267,7 @@ subroutine test_solver(probs, mindim, maxdim, nrand, randseed, testdim)
         do irand = 1, max(0_IK, nrand_loc) + 1_IK
             ! Initialize the random seed using IRAND, RP, and RANDSEED_LOC. Do not include IK so
             ! that the results for different IK are the same.
-            seed = int(sum(istr(solname)) * sum(istr(probname)) + irand * RP + randseed_loc)
+            seed = int(sum(istr(solname)) + sum(istr(probname)) + irand * RP + randseed_loc)
             call setseed(seed)
 
             ! Set the problem dimension N to a random value in the range [MINDIM, MAXDIM].

fortran/tests/test_newuoa.f90

@@ -157,7 +157,7 @@ subroutine test_solver(probs, mindim, maxdim, nrand, randseed, testdim)
     n = merge(bign, largen, testdim_loc == 'big')
     call construct(prob, probname, n)
     do irand = 1, 1  ! The test is expensive
-        seed = int(sum(istr(solname)) * sum(istr(probname)) + irand * RP + n + randseed_loc)
+        seed = int(sum(istr(solname)) + sum(istr(probname)) + irand * RP + n + randseed_loc)
         call setseed(seed)
         npt = int(4.0 * rand() * real(n, RP), kind(npt))
         iprint = 2_IK
@@ -190,7 +190,7 @@ subroutine test_solver(probs, mindim, maxdim, nrand, randseed, testdim)
         do irand = 1, max(0_IK, nrand_loc) + 1_IK
             ! Initialize the random seed using IRAND, RP, and RANDSEED_LOC. Do not include IK so
             ! that the results for different IK are the same.
-            seed = int(sum(istr(solname)) * sum(istr(probname)) + irand * RP + randseed_loc)
+            seed = int(sum(istr(solname)) + sum(istr(probname)) + irand * RP + randseed_loc)
             call setseed(seed)
 
             ! Set the problem dimension N to a random value in the range [MINDIM, MAXDIM].

fortran/tests/test_uobyqa.f90

@@ -49,7 +49,7 @@ module test_solver_mod
 !
 ! Started: September 2021
 !
-! Last Modified: Thu 21 Aug 2025 10:13:57 AM CST
+! Last Modified: Fri 22 Aug 2025 09:48:23 PM CST
 !--------------------------------------------------------------------------------------------------!
 
 implicit none
@@ -155,7 +155,7 @@ subroutine test_solver(probs, mindim, maxdim, nrand, randseed, testdim)
     n = merge(bign, largen, testdim_loc == 'big')
     call construct(prob, probname, n)
     do irand = 1, 1  ! The test is expensive
-        seed = int(sum(istr(solname)) * sum(istr(probname)) + irand * RP + n + randseed_loc)
+        seed = int(sum(istr(solname)) + sum(istr(probname)) + irand * RP + n + randseed_loc)
         call setseed(seed)
         npt = (n + 2_IK) * (n + 1_IK) / 2_IK
         iprint = 2_IK
@@ -187,7 +187,7 @@ subroutine test_solver(probs, mindim, maxdim, nrand, randseed, testdim)
         do irand = 1, max(0_IK, nrand_loc) + 1_IK
             ! Initialize the random seed using IRAND, RP, and RANDSEED_LOC. Do not include IK so
             ! that the results for different IK are the same.
-            seed = int(sum(istr(solname)) * sum(istr(probname)) + irand * RP + randseed_loc)
+            seed = int(sum(istr(solname)) + sum(istr(probname)) + irand * RP + randseed_loc)
             call setseed(seed)
 
             ! Set the problem dimension N to a random value in the range [MINDIM, MAXDIM].