refac(object_m_test): enable selective testing

Author: rouson

test/object_m_test.f90 renamed to test/object_m_test.F90

@@ -1,6 +1,6 @@
 module object_m_test_m
   !! Verify object pattern asbtract parent
-  use sourcery_m, only : test_t, test_result_t, object_t
+  use sourcery_m, only : test_t, test_result_t, object_t, test_description_t, test_function_i, string_t, test_description_substring
   implicit none
 
   private
@@ -26,11 +26,26 @@ pure function subject() result(specimen)
 
   function results() result(test_results)
     type(test_result_t), allocatable :: test_results(:)
+    type(test_description_t), allocatable :: test_descriptions(:)
+
+#ifndef __GFORTRAN__
+    test_descriptions = [ & 
+      test_description_t(string_t("object being .not. user_defined() if it is only default-initialized"), check_default_initialization), &
+      test_description_t(string_t("object being user_defined() after call to mark_as_defined"), check_mark_as_defined) &
+    ]   
+#else
+    ! Work around missing Fortran 2008 feature: associating a procedure actual argument with a procedure pointer dummy argument:
+    procedure(test_function_i), pointer :: check_default_ptr, check_mark_ptr 
+    check_default_ptr => check_default_initialization
+    check_mark_ptr => check_mark_as_defined
+    test_descriptions = [ & 
+      test_description_t(string_t("object being .not. user_defined() if it is only default-initialized"), check_default_ptr), &
+      test_description_t(string_t("object being user_defined() after call to mark_as_defined"), check_mark_ptr) &
+    ]   
+#endif
+    test_descriptions = pack(test_descriptions, test_descriptions%contains_text(string_t(test_description_substring)))
+    test_results = test_descriptions%run()
 
-    test_results = [ &
-      test_result_t("object being .not. user_defined() if it is only default-initialized", check_default_initialization()), &
-      test_result_t("object being user_defined() after call to mark_as_defined", check_mark_as_defined()) &
-    ]
   end function
 
   pure function check_default_initialization() result(passed)