@@ -167,27 +167,26 @@ int test_gdal(int iosysid, int ioid, int num_flavors, int *flavor, int my_rank,
167167 ERR (ret );
168168
169169 /* Check the results. */
170- // TEMPORARILY DISABLED UNTIL A SEGFAULT IS DIAGNOSED
171- // for (int f = 0; f < arraylen; f++)
172- // {
173- // switch (pio_type)
174- // {
175- // case PIO_INT:
176- // if (test_data_int_in[f] != test_data_int[f])
177- // return ERR_WRONG;
178- // break;
179- // case PIO_FLOAT:
180- // if (test_data_float_in[f] != test_data_float[f])
181- // return ERR_WRONG;
182- // break;
183- // case PIO_DOUBLE:
184- // if (test_data_double_in[f] != test_data_double[f])
185- // return ERR_WRONG;
186- // break;
187- // default:
188- // ERR(ERR_WRONG);
189- // }
190- // }
170+ for (int f = 0 ; f < arraylen ; f ++ )
171+ {
172+ switch (pio_type )
173+ {
174+ case PIO_INT :
175+ if (test_data_int_in [f ] != test_data_int [f ])
176+ return ERR_WRONG ;
177+ break ;
178+ case PIO_FLOAT :
179+ if (test_data_float_in [f ] != test_data_float [f ])
180+ return ERR_WRONG ;
181+ break ;
182+ case PIO_DOUBLE :
183+ if (test_data_double_in [f ] != test_data_double [f ])
184+ return ERR_WRONG ;
185+ break ;
186+ default :
187+ ERR (ERR_WRONG );
188+ }
189+ }
191190
192191 /* Close the netCDF file. */
193192 if ((ret = PIOc_closefile (ncid2 )))
@@ -247,7 +246,7 @@ int test_all_gdal(int iosysid, int num_flavors, int *flavor, int my_rank,
247246int main (int argc , char * * argv )
248247{
249248#define NUM_REARRANGERS_TO_TEST 2
250- int rearranger [NUM_REARRANGERS_TO_TEST ] = {PIO_REARR_BOX , PIO_REARR_SUBSET };
249+ int rearranger [NUM_REARRANGERS_TO_TEST ] = {PIO_REARR_SUBSET , PIO_REARR_BOX };
251250 int my_rank ;
252251 int ntasks ;
253252 int num_flavors ; /* Number of PIO netCDF flavors in this build. */
@@ -283,10 +282,14 @@ int main(int argc, char **argv)
283282 {
284283 /* Initialize the PIO IO system. This specifies how
285284 * many and which processors are involved in I/O. */
286- if ((ret = PIOc_Init_Intracomm (test_comm , TARGET_NTASKS , ioproc_stride ,
285+ if ((ret = PIOc_Init_Intracomm (test_comm , NUM_IO_PROCS , ioproc_stride ,
287286 ioproc_start , rearranger [r ], & iosysid )))
288287 return ret ;
289288
289+ /* if ((ret = PIOc_set_rearr_opts(iosysid, PIO_REARR_COMM_P2P, PIO_REARR_COMM_FC_2D_DISABLE, false, false, PIO_REARR_COMM_UNLIMITED_PEND_REQ, false, false, PIO_REARR_COMM_UNLIMITED_PEND_REQ)))
290+ return ret;
291+ */
292+
290293 /* Run tests. */
291294 if ((ret = test_all_gdal (iosysid , num_flavors , flavor , my_rank , test_comm )))
292295 return ret ;
0 commit comments