Remove str() implementation for real

It is not needed at the moment, but it will have to be put back in once
we extract str() into a dedicated string manipulation library (or
stdlib).

Author: certik

fpm/src/fpm_strings.f90

@@ -7,8 +7,6 @@ module fpm_strings
 public :: string_array_contains, string_cat, operator(.in.), fnv_1a
 public :: resize, str
 
-integer, parameter :: dp = selected_real_kind(15)
-
 type string_t
     character(len=:), allocatable :: s
 end type
@@ -32,7 +30,7 @@ module fpm_strings
 end interface str_ends_with
 
 interface str
-    module procedure str_int, str_int64, str_real, str_real_n, str_logical
+    module procedure str_int, str_int64, str_logical
 end interface
 
 contains
@@ -391,34 +389,6 @@ pure function str_int64(i) result(s)
 write(s, '(i0)') i
 end function
 
-pure integer function str_real_len(r, fmt) result(sz)
-! Returns the length of the string representation of 'i'
-real(dp), intent(in) :: r
-character(len=*), intent(in) :: fmt
-integer, parameter :: MAX_STR = 100
-character(MAX_STR) :: s
-! If 's' is too short (MAX_STR too small), Fortan will abort with:
-! "Fortran runtime error: End of record"
-write(s, fmt) r
-sz = len_trim(s)
-end function
-
-pure function str_real(r) result(s)
-! Converts the real number "r" to string with 7 decimal digits.
-real(dp), intent(in) :: r
-character(len=*), parameter :: fmt="(f0.6)"
-character(len=str_real_len(r, fmt)) :: s
-write(s, fmt) r
-end function
-
-pure function str_real_n(r, n) result(s)
-! Converts the real number "r" to string with 'n' decimal digits.
-real(dp), intent(in) :: r
-integer, intent(in) :: n
-character(len=str_real_len(r, "(f0." // str_int(n) // ")")) :: s
-write(s, "(f0." // str_int(n) // ")") r
-end function
-
 pure integer function str_logical_len(l) result(sz)
 ! Returns the length of the string representation of 'l'
 logical, intent(in) :: l