feat(string_t): operator(.cat.) for array operand

Author: rouson

src/sourcery/sourcery_string_m.f90

@@ -5,7 +5,7 @@ module sourcery_string_m
   private
   public :: string_t
   public :: array_of_strings
-  public :: concatenate_elements
+  public :: operator(.cat.) ! element-wise concatenation operator
 
   type, extends(characterizable_t) :: string_t
     private
@@ -55,14 +55,17 @@ elemental module function from_real(x) result(string)
 
   end interface
 
-  interface
+  interface operator(.cat.)
 
     pure module function concatenate_elements(strings) result(concatenated_strings)
       implicit none
       type(string_t), intent(in) :: strings(:)
       type(string_t) concatenated_strings
     end function
 
+  end interface
+
+  interface
     pure module function as_character(self) result(raw_string)
       implicit none
       class(string_t), intent(in) :: self

src/sourcery_m.f90

@@ -5,7 +5,7 @@ module sourcery_m
   use sourcery_bin_m, only : bin_t
   use sourcery_formats_m, only : csv, cscv, separated_values
   use sourcery_file_m, only : file_t
-  use sourcery_string_m, only : string_t
+  use sourcery_string_m, only : string_t, operator(.cat.)
   use sourcery_test_result_m, only : test_result_t
   use sourcery_test_m, only : test_t
   use sourcery_user_defined_collectives_m, only : co_all

test/string_test.f90

@@ -1,5 +1,5 @@
 module string_test_m
-  use sourcery_m, only : test_t, test_result_t, string_t
+  use sourcery_m, only : test_t, test_result_t, string_t, operator(.cat.)
   implicit none
 
   private
@@ -23,19 +23,20 @@ function results() result(test_results)
 
     test_results = [ &
       test_result_t("is_allocated() result .true. if & only if the string_t component(s) is/are allocated", check_allocation()), &
-      test_result_t("extracting a key string from a colon-separated key/value pair", extracts_key()), &
-      test_result_t("extracting a real value from a colon-separated key/value pair", extracts_real_value()), &
-      test_result_t("extracting a string value from a colon-separated key/value pair", extracts_string_value()), &
-      test_result_t("extracting a logical value from a colon-separated key/value pair", extracts_logical_value()), &
-      test_result_t("extracting an integer array value from a colon-separated key/value pair", extracts_integer_array_value()), &
-      test_result_t("extracting an integer value from a colon-separated key/value pair", extracts_integer_value()), &
       test_result_t('supporting operator(==) for string_t and character operands', supports_equivalence_operator()), &
       test_result_t('supporting operator(/=) for string_t and character operands', supports_non_equivalence_operator()), &
+      test_result_t('supporting operator(//) for string_t and character operands', supports_concatenation_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('constructing from a default integer', constructs_from_default_integer()), &
       test_result_t('constructing from a real value', constructs_from_real()), &
+      test_result_t('supporting unary operator(.cat.) for array arguments', concatenates_elements()), &
+      test_result_t("extracting a key string from a colon-separated key/value pair", extracts_key()), &
+      test_result_t("extracting a real value from a colon-separated key/value pair", extracts_real_value()), &
+      test_result_t("extracting a string value from a colon-separated key/value pair", extracts_string_value()), &
+      test_result_t("extracting a logical value from a colon-separated key/value pair", extracts_logical_value()), &
+      test_result_t("extracting an integer array value from a colon-separated key/value pair", extracts_integer_array_value()), &
+      test_result_t("extracting an integer value from a colon-separated key/value pair", extracts_integer_value()), &
       test_result_t('extracting a file base name', extracts_file_base_name()), &
       test_result_t('extracting a file name extension', extracts_file_name_extension()) &
     ]
@@ -182,4 +183,11 @@ function extracts_file_name_extension() result(passed)
     end associate
   end function
 
+  function concatenates_elements() result(passed)
+    logical passed
+    associate(elements => [string_t("foo"), string_t("bar")])
+      passed = .cat. elements  == "foobar"
+    end associate
+  end function
+
 end module string_test_m