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