From 5db13b87d8ffe5422e6777cb050959cf1ac2d52d Mon Sep 17 00:00:00 2001 From: William F Godoy Date: Tue, 29 Sep 2020 13:10:18 -0400 Subject: [PATCH 1/2] Direct f2c to correct call --- bindings/Fortran/f2c/adios2_f2c_engine.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bindings/Fortran/f2c/adios2_f2c_engine.cpp b/bindings/Fortran/f2c/adios2_f2c_engine.cpp index 95dae53cd7..eecd7eb049 100644 --- 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(adios2_current_step(&stepsC, *engine)); + *ierr = static_cast(adios2_steps(&stepsC, *engine)); if (*ierr == static_cast(adios2_error_none)) { From f9da0451c298ca3c59dc650316794344630b5f7d Mon Sep 17 00:00:00 2001 From: William F Godoy Date: Tue, 29 Sep 2020 13:55:27 -0400 Subject: [PATCH 2/2] Fix test to enable check in number of steps --- testing/adios2/bindings/fortran/TestBPWriteTypes.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/testing/adios2/bindings/fortran/TestBPWriteTypes.F90 b/testing/adios2/bindings/fortran/TestBPWriteTypes.F90 index 28f3913467..4aaa8a21bc 100644 --- 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'