anchor.diff:          end if
       end subroutine
   
  -    subroutine adios2_define_variable_attribute_separator_integer4_1d(attribute, io, &
  -                                                                      name, data, &
  -                                                                      length, &
  -                                                                      variable_name, &
  -                                                                      ierr)
  +    subroutine adios2_def_var_att_sep_integer4_1d(attribute, io, &
  +                                                  name, data, &
  +                                                  length, &
  +                                                  variable_name, &
  +                                                  ierr)
           type(adios2_attribute), intent(out) :: attribute
           type(adios2_io), intent(in) :: io
           character*(*), intent(in) :: name
  
positive.code:         end if
      end subroutine
  
      subroutine adios2_define_variable_attribute_separator_dp(attribute, io, name, &
                                                               data, variable_name, &
                                                               ierr)
          type(adios2_attribute), intent(out) :: attribute
          type(adios2_io), intent(in) :: io
          character*(*), intent(in) :: name
  
negative.code:     end subroutine
  
      ! Variable attribute default separator
      subroutine adios2_def_var_att_sep_string(attribute, io, name, &
                                               data, variable_name, &
                                               ierr)
          type(adios2_attribute), intent(out) :: attribute
          type(adios2_io), intent(in) :: io
          character*(*), intent(in) :: name
  