feat(test_diagnosis):mk ops elemental excpet .all.

Author: rouson

src/julienne/julienne_test_diagnosis_m.F90

@@ -58,13 +58,13 @@ pure module function aggregate_diagnosis(diagnoses) result(diagnosis)
 
   interface operator(.approximates.)
 
-    pure module function approximates_real(actual, expected) result(operands)
+    elemental module function approximates_real(actual, expected) result(operands)
       implicit none
       real, intent(in) :: actual, expected
       type(operands_t) operands
     end function
 
-    pure module function approximates_double_precision(actual, expected) result(operands)
+    elemental module function approximates_double_precision(actual, expected) result(operands)
       implicit none
       double precision, intent(in) :: actual, expected
 #if HAVE_DERIVED_TYPE_KIND_PARAMETERS
@@ -78,7 +78,7 @@ pure module function approximates_double_precision(actual, expected) result(oper
 
   interface operator(.equalsExpected.)
 
-    pure module function equals_expected_integer(actual, expected) result(test_diagnosis)
+    elemental module function equals_expected_integer(actual, expected) result(test_diagnosis)
       implicit none
       integer, intent(in) :: actual, expected
       type(test_diagnosis_t) test_diagnosis
@@ -88,19 +88,19 @@ pure module function equals_expected_integer(actual, expected) result(test_diagn
 
   interface operator(.lessThan.)
 
-    pure module function less_than_real(actual, expected_ceiling) result(test_diagnosis)
+    elemental module function less_than_real(actual, expected_ceiling) result(test_diagnosis)
       implicit none
       real, intent(in) :: actual, expected_ceiling
       type(test_diagnosis_t) test_diagnosis
     end function
 
-    pure module function less_than_double(actual, expected_ceiling) result(test_diagnosis)
+    elemental module function less_than_double(actual, expected_ceiling) result(test_diagnosis)
       implicit none
       double precision, intent(in) :: actual, expected_ceiling
       type(test_diagnosis_t) test_diagnosis
     end function
 
-    pure module function less_than_integer(actual, expected_ceiling) result(test_diagnosis)
+    elemental module function less_than_integer(actual, expected_ceiling) result(test_diagnosis)
       implicit none
       integer, intent(in) :: actual, expected_ceiling
       type(test_diagnosis_t) test_diagnosis
@@ -130,19 +130,19 @@ elemental module function greater_than_or_equal_to_integer(actual, expected_min)
 
   interface operator(.greaterThan.)
 
-    pure module function greater_than_real(actual, expected_floor) result(test_diagnosis)
+    elemental module function greater_than_real(actual, expected_floor) result(test_diagnosis)
       implicit none
       real, intent(in) :: actual, expected_floor
       type(test_diagnosis_t) test_diagnosis
     end function
 
-    pure module function greater_than_double(actual, expected_floor) result(test_diagnosis)
+    elemental module function greater_than_double(actual, expected_floor) result(test_diagnosis)
       implicit none
       double precision, intent(in) :: actual, expected_floor
       type(test_diagnosis_t) test_diagnosis
     end function
 
-    pure module function greater_than_integer(actual, expected_floor) result(test_diagnosis)
+    elemental module function greater_than_integer(actual, expected_floor) result(test_diagnosis)
       implicit none
       integer, intent(in) :: actual, expected_floor
       type(test_diagnosis_t) test_diagnosis
@@ -152,14 +152,14 @@ pure module function greater_than_integer(actual, expected_floor) result(test_di
 
   interface operator(.within.)
 
-    pure module function within_real(operands, tolerance) result(test_diagnosis)
+    elemental module function within_real(operands, tolerance) result(test_diagnosis)
       implicit none
       type(operands_t), intent(in) :: operands
       real, intent(in) :: tolerance
       type(test_diagnosis_t) test_diagnosis
     end function
 
-    pure module function within_double_precision(operands, tolerance) result(test_diagnosis)
+    elemental module function within_double_precision(operands, tolerance) result(test_diagnosis)
       implicit none
 #if HAVE_DERIVED_TYPE_KIND_PARAMETERS
       type(operands_t(double_precision)), intent(in) :: operands

test/test_diagnosis_test_m.F90

@@ -172,7 +172,7 @@ function check_greater_than_double() result(test_diagnosis)
   function check_greater_than_integer() result(test_diagnosis)
     type(test_diagnosis_t) test_diagnosis
     integer, parameter :: expected_floor = 1
-    test_diagnosis = 2 .greaterThan. expected_floor
+    test_diagnosis = (2 .greaterThan. expected_floor)
   end function
 
   function check_less_than_or_equal_to_integer() result(test_diagnosis)