anchor.diff:          end if
       end subroutine
   
  -    subroutine adios2_define_variable_attribute_separator_dp(attribute, io, name, &
  -                                                             data, variable_name, &
  -                                                             ierr)
  +    subroutine adios2_def_var_att_sep_dp(attribute, io, name, &
  +                                         data, variable_name, &
  +                                         ierr)
           type(adios2_attribute), intent(out) :: attribute
           type(adios2_io), intent(in) :: io
           character*(*), intent(in) :: name
  
positive.code: 
      end subroutine
  
      subroutine adios2_define_variable_attribute_separator_real(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 if
      end subroutine
  
      subroutine adios2_def_var_att_sep_integer1_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
  