Add support for logical arguments to .also.

This enables patterns like:
```
diag = diag .also. myobject%passes()
```
Where the latter returns a logical.
The resulting expression is slightly more concise than requiring the programmer
to type `.expect.`

Author: bonachea

src/julienne/julienne_test_diagnosis_m.F90

@@ -201,16 +201,32 @@ pure module function aggregate_rank15_diagnosis(diagnoses) result(diagnosis)
 
   interface operator(.also.)
 
-    elemental module function also(lhs, rhs) result(diagnosis)
+    elemental module function also_DD(lhs, rhs) result(diagnosis)
       implicit none
       type(test_diagnosis_t), intent(in) :: lhs, rhs
       type(test_diagnosis_t) diagnosis
     end function
 
+    elemental module function also_DL(lhs, rhs) result(diagnosis)
+      implicit none
+      type(test_diagnosis_t), intent(in) :: lhs
+      logical, intent(in) :: rhs
+      type(test_diagnosis_t) diagnosis
+    end function
+
+    elemental module function also_LD(lhs, rhs) result(diagnosis)
+      implicit none
+      logical, intent(in) :: lhs
+      type(test_diagnosis_t), intent(in) :: rhs
+      type(test_diagnosis_t) diagnosis
+    end function
+
   end interface
 
   interface operator(.and.)
-     module procedure also
+     module procedure also_DD
+     module procedure also_LD
+     module procedure also_DL
   end interface
 
   interface operator(.approximates.)

src/julienne/julienne_test_diagnosis_s.F90

@@ -37,10 +37,18 @@
     end if
   end procedure
 
-  module procedure also
+  module procedure also_DD
      diagnosis = .all. ([lhs,rhs])
   end procedure 
 
+  module procedure also_LD
+     diagnosis = .all. ([.expect.(lhs),rhs])
+  end procedure 
+
+  module procedure also_DL
+     diagnosis = .all. ([lhs,.expect.(rhs)])
+  end procedure 
+
 #ifndef __GFORTRAN__
 
   module procedure aggregate_diagnosis

test/modules/test_diagnosis_test_m.F90

@@ -86,6 +86,7 @@ function results() result(test_results)
       ,test_description_t("construction from (.expects. logical-expression) // 'user-defined message'"                         , usher(check_expects_logical)) &
       ,test_description_t("construction from (.expects. logical-expression) // 'user-defined message'"                         , usher(check_expects_logical)) &
       ,test_description_t("defining a test_diagnosis_t object by assigning a logical value"                                    , usher(check_assigns_logical)) &
+      ,test_description_t("aggregating a test_diagnosis_t object using .also. with a logical value"                                    , usher(check_also_logical)) &
       ,test_description_t("hardwiring a test to pass via the passing_test() function"                                          , usher(check_passing_test_function)) &
     ]
     test_results = test_diagnosis_test%run(test_descriptions)
@@ -310,6 +311,13 @@ function check_assigns_logical() result(test_diagnosis)
     test_diagnosis = .true.
   end function
 
+  function check_also_logical() result(test_diagnosis)
+    type(test_diagnosis_t) test_diagnosis
+    test_diagnosis = .true.
+    test_diagnosis = test_diagnosis .also. .true.
+    test_diagnosis = .true. .also. test_diagnosis
+  end function
+
   function check_passing_test_function() result(test_diagnosis)
     type(test_diagnosis_t) test_diagnosis
     test_diagnosis = passing_test()