anchor.diff:      module procedure getVariablesFixed
           procedure(getVariablesWrapper), pointer :: get
   
  -        vars = ""
  +        vars = ''
           if (this%init_number == MAGIC_NUMBER) then
               call c_f_procpointer(CalculateLibrary%getVariables, get)
   
  
positive.code:     module procedure getExpressionFixed
          procedure(getExpressionWrapper), pointer :: get
  
          expr = ""
          if (this%init_number == MAGIC_NUMBER) then
              call c_f_procpointer(CalculateLibrary%getExpression, get)
  
  
negative.code:             end if
              message = fromChars(cerror)
          else
              message = 'Not initialized'
              result = ieee_value(result, ieee_quiet_nan)
          end if
  
  