feat(string_t): constructor with default int arg

Author: rouson

src/sourcery/sourcery_string_m.f90

@@ -38,6 +38,12 @@ elemental module function construct(string) result(new_string)
       type(string_t) new_string
     end function
 
+    elemental module function from_default_integer(i) result(string)
+      implicit none
+      integer, intent(in) :: i
+      type(string_t) string
+    end function
+
   end interface
 
   interface

src/sourcery/sourcery_string_s.f90

@@ -17,6 +17,13 @@
     string_allocated = allocated(self%string_)
   end procedure
 
+  module procedure from_default_integer
+    integer, parameter :: sign_width = 1, digits_width = range(i) + 1
+    character(len = digits_width + sign_width) characters
+    write(characters, '(i0)') i
+    string = string_t(characters)
+  end procedure
+
   module procedure array_of_strings
     character(len=:), allocatable :: remainder, next_string
     integer next_delimiter, string_end

test/string_test.f90

@@ -2,7 +2,6 @@ module string_test_m
   use sourcery_m, only : test_t, test_result_t, string_t
   implicit none
 
-
   private
   public :: string_test_t
 
@@ -34,7 +33,8 @@ function results() result(test_results)
       test_result_t('supporting operator(/=) for string_t and character operands', supports_non_equivalence_operator()), &
       test_result_t('assigning a string_t object to a character variable', assigns_string_t_to_character()), &
       test_result_t('assigning a character variable to a string_t object', assigns_character_to_string_t()), &
-      test_result_t('supporting operator(//) for string_t and character operands', supports_concatenation_operator()) &
+      test_result_t('supporting operator(//) for string_t and character operands', supports_concatenation_operator()), &
+      test_result_t('constructing from a default integer', constructs_from_default_integer()) &
     ]
   end function
 
@@ -151,4 +151,11 @@ function supports_concatenation_operator() result(passed)
     end associate
   end function
 
+  function constructs_from_default_integer() result(passed)
+    logical passed
+    associate(string => string_t(1234567890))
+      passed = adjustl(trim(string%string())) == "1234567890"
+    end associate
+  end function
+
 end module string_test_m