anchor.diff:           call adios2_put(bpWriter, variables(4), data_I64, ierr)
            call adios2_put(bpWriter, variables(5), data_R32, ierr)
            call adios2_put(bpWriter, variables(6), data_R64, ierr)
  +
  +         call adios2_put(bpWriter, variables(14), irank, ierr)
  +
            call adios2_end_step(bpWriter, ierr)
        end do
   
  
positive.code: 
       call adios2_define_variable(variables(13), ioWrite, "gvar_Str", &
                                   adios2_type_string, ierr)
  
       do i=1,13
          if( variables(i)%valid .eqv. .false. ) stop 'Invalid adios2_define_variable'
  
negative.code:      implicit none
  
       integer(kind=8), dimension(1) :: shape_dims, start_dims, count_dims
       integer(kind=4) :: inx, irank, isize, ierr, i, step_status
  
       type(adios2_adios) :: adios
       type(adios2_io) :: ioWrite, ioRead
       type(adios2_variable), dimension(14) :: variables
       type(adios2_engine) :: bpWriter, bpReader
       character(len=15) :: inString
       character(len=:), allocatable :: varName
       character(len=:), allocatable :: engineType
  
       ! read handlers
       integer(kind=4) :: ndims
       integer(kind=8), dimension(:), allocatable :: shape_in
  
       ! Launch MPI
  