Merge pull request #789 from jvdp1/fix_str2num

Module str2num and related tests

Author: jvdp1

src/stdlib_str2num.fypp

@@ -109,7 +109,7 @@ module stdlib_str2num
         integer(int8) :: err
         !----------------------------------------------
         call to_num_base(s,v,p,err)
-        p = min( p , len(s) )
+        p = min( p , len(s, kind = int8) )
         s => s(p:)
         if(present(stat)) stat = err
     end function

test/string/test_string_to_number.fypp

@@ -122,10 +122,10 @@ contains
             #:elif k1 == "qp"
             if(abs(rel_err) > 200*epsilon(0.0_wp)) then
             #:endif
-                write(*,"('formatted read : ' g0)") formatted_read_out
-                write(*,"('to_num         : ' g0)") to_num_out
-                write(*,"('difference abs : ' g0)") abs_err
-                write(*,"('difference rel : ' g0 '%')") rel_err * 100
+                write(*,"('formatted read : ', g0)") formatted_read_out
+                write(*,"('to_num         : ', g0)") to_num_out
+                write(*,"('difference abs : ', g0)") abs_err
+                write(*,"('difference rel : ', g0, '%')") rel_err * 100
                 ucheck = .false.
             end if
         end function