Merge pull request #2473 from williamfgc/adios2_steps

Redirect f2c to correct call
ornladios · Sep 29, 2020 · 7cd3a84 · 7cd3a84
2 parents 9dca351 + f9da045
commit 7cd3a84
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/bindings/Fortran/f2c/adios2_f2c_engine.cpp b/bindings/Fortran/f2c/adios2_f2c_engine.cpp
@@ -53,7 +53,7 @@ void FC_GLOBAL(adios2_steps_f2c, ADIOS2_STEPS_F2C)(int64_t *steps,
 {
     *steps = -1;
     size_t stepsC;
-    *ierr = static_cast<int>(adios2_current_step(&stepsC, *engine));
+    *ierr = static_cast<int>(adios2_steps(&stepsC, *engine));
 
     if (*ierr == static_cast<int>(adios2_error_none))
     {

diff --git a/testing/adios2/bindings/fortran/TestBPWriteTypes.F90 b/testing/adios2/bindings/fortran/TestBPWriteTypes.F90
@@ -231,7 +231,7 @@ program TestBPWriteTypes
      call adios2_open(bpReader, ioRead, "ftypes.bp", adios2_mode_read, ierr)
 
      call adios2_steps(nsteps, bpReader, ierr)
-     if(nsteps /= 3)  write(*,*) 'nsteps: ', nsteps !stop 'ftypes.bp must have 3 steps'
+     if(nsteps /= 3) stop 'ftypes.bp must have 3 steps'
 
      call adios2_inquire_variable(variables(1), ioRead, "var_I8", ierr)
      if (variables(1)%name /= 'var_I8') stop 'var_I8 not recognized'