anchor.diff:  
        call adios2_define_variable(variables(13), ioWrite, "gvar_Str", &
                                    adios2_type_string, ierr)
  +
  +     ! local value
  +     call adios2_define_variable(variables(14), ioWrite, "lvar_i32", &
  +                                 adios2_type_integer4, &
  +                                 (/ adios2_local_value_dim /), (/ /), (/ /), &
  +                                 adios2_constant_dims, ierr)
   
        do i=1,13
           if( variables(i)%valid .eqv. .false. ) stop 'Invalid adios2_define_variable'
  
positive.code:      implicit none
  
       integer(kind=8), dimension(1) :: shape_dims, start_dims, count_dims
       integer :: inx, irank, isize, ierr, i, step_status
  
       type(adios2_adios) :: adios
       type(adios2_io) :: ioWrite, ioRead
       type(adios2_variable), dimension(13) :: variables
       type(adios2_engine) :: bpWriter, bpReader
       character(len=15) :: inString
       character(len=:), allocatable :: varName
       character(len=:), allocatable :: engineType
  
       ! read handlers
       integer :: ndims
       integer(kind=8), dimension(:), allocatable :: shape_in
  
       ! Launch MPI
  
negative.code:          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
  
  