another fix for MS cl compiler

DrTimothyAldenDavis · DrTimothyAldenDavis · commit 5522fc4ba0d8 · 2025-02-25T12:06:50.000-06:00
diff --git a/GraphBLAS/Source/ij/GB_ijxvector.c b/GraphBLAS/Source/ij/GB_ijxvector.c
@@ -340,12 +340,13 @@ GrB_Info GB_ijxvector
                 int nthreads_max = GB_Context_nthreads_max ( ) ;
                 double chunk = GB_Context_chunk ( ) ;
                 int nthreads = GB_nthreads (n, chunk, nthreads_max) ;
+                int64_t k ;
                 if (I_type == GrB_UINT32)
                 { 
                     uint32_t *I = (uint32_t *) (*I_handle) ;
                     #pragma omp parallel for num_threads(nthreads) \
                         schedule(static)
-                    for (int64_t k = 0 ; k < n ; k++)
+                    for (k = 0 ; k < n ; k++)
                     {
                         I [k] = k ;
                     }
@@ -355,7 +356,7 @@ GrB_Info GB_ijxvector
                     uint64_t *I = (uint64_t *) (*I_handle) ;
                     #pragma omp parallel for num_threads(nthreads) \
                         schedule(static)
-                    for (int64_t k = 0 ; k < n ; k++)
+                    for (k = 0 ; k < n ; k++)
                     {
                         I [k] = k ;
                     }

Original file line number	Diff line number	Diff line change
`@@ -340,12 +340,13 @@ GrB_Info GB_ijxvector`
`340`	`340`	`int nthreads_max = GB_Context_nthreads_max ( ) ;`
`341`	`341`	`double chunk = GB_Context_chunk ( ) ;`
`342`	`342`	`int nthreads = GB_nthreads (n, chunk, nthreads_max) ;`
	`343`	`+ int64_t k ;`
`343`	`344`	`if (I_type == GrB_UINT32)`
`344`	`345`	`{`
`345`	`346`	`uint32_t I = (uint32_t ) (*I_handle) ;`
`346`	`347`	`#pragma omp parallel for num_threads(nthreads) \`
`347`	`348`	`schedule(static)`
`348`		`- for (int64_t k = 0 ; k < n ; k++)`
	`349`	`+ for (k = 0 ; k < n ; k++)`
`349`	`350`	`{`
`350`	`351`	`I [k] = k ;`
`351`	`352`	`}`
`@@ -355,7 +356,7 @@ GrB_Info GB_ijxvector`
`355`	`356`	`uint64_t I = (uint64_t ) (*I_handle) ;`
`356`	`357`	`#pragma omp parallel for num_threads(nthreads) \`
`357`	`358`	`schedule(static)`
`358`		`- for (int64_t k = 0 ; k < n ; k++)`
	`359`	`+ for (k = 0 ; k < n ; k++)`
`359`	`360`	`{`
`360`	`361`	`I [k] = k ;`
`361`	`362`	`}`