Merge pull request #1038 from keichi/xl-summit

Fix type error when compiling with IBM XL compiler on Summit
ornladios · Dec 5, 2018 · 6e53dfb · 6e53dfb
2 parents db7ee42 + d900895
commit 6e53dfb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/testing/adios2/engine/sst/TestSstReadF.f90 b/testing/adios2/engine/sst/TestSstReadF.f90
@@ -47,7 +47,7 @@ program TestSstRead
   if (variables(1)%type /= adios2_type_integer1) stop 'i8 type not recognized'
   call adios2_variable_shape(shape_in, ndims, variables(1),  ierr)
   if (ndims /= 1) stop 'i8 ndims is not 1'
-  if (modulo(shape_in(1), nx) /= 0) stop 'i8 shape_in read failed'
+  if (modulo(shape_in(1), int(nx, 8)) /= 0) stop 'i8 shape_in read failed'
   writerSize = shape_in(1) / nx
 
   call adios2_inquire_variable(variables(2), ioRead, "i16", ierr)