anchor.diff:    !---------------------------------------------------------------------------------------------------------------------------------
     endfunction bit_size_R8P
   
  -  !> @brief Procedure for computing the number of bits of a real variable.
     elemental function bit_size_R4P(r) result(bits)
  +  !---------------------------------------------------------------------------------------------------------------------------------
  +  !< Procedure for computing the number of bits of a real variable.
     !---------------------------------------------------------------------------------------------------------------------------------
     implicit none
     real(R4P), intent(IN):: r       !< Real variable whose number of bits must be computed.
  
positive.code:   !---------------------------------------------------------------------------------------------------------------------------------
    endfunction bit_size_R16P
  
    !> @brief Procedure for computing the number of bits of a real variable.
    elemental function bit_size_R8P(r) result(bits)
    !---------------------------------------------------------------------------------------------------------------------------------
    implicit none
    real(R8P), intent(IN):: r       !< Real variable whose number of bits must be computed.
  
negative.code:   !---------------------------------------------------------------------------------------------------------------------------------
    endfunction bstr_I1P
  
    elemental function bctor_R8P(bstr,knd) result(n)
    !---------------------------------------------------------------------------------------------------------------------------------
    !< Procedure for converting bit-string to real. This function achieves casting of bit-string to real.
    !---------------------------------------------------------------------------------------------------------------------------------
    implicit none
    character(*), intent(IN):: bstr !< String containing input number.
  