diff --git a/example/supporting-modules/saturated_mixing_ratio_m.f90 b/example/supporting-modules/saturated_mixing_ratio_m.F90
similarity index 96%
rename from example/supporting-modules/saturated_mixing_ratio_m.f90
rename to example/supporting-modules/saturated_mixing_ratio_m.F90
index a0ac2e90a..70cb44500 100644
--- a/example/supporting-modules/saturated_mixing_ratio_m.f90
+++ b/example/supporting-modules/saturated_mixing_ratio_m.F90
@@ -31,7 +31,7 @@ module saturated_mixing_ratio_m
   !! in the Intermediate Complexity Atmospheric Research (ICAR) model file src/physics/mp_simple.f90.
   !! ICAR is distributed under the above MIT license.  See https://github.com/ncar/icar.
   use fiats_m, only : tensor_t
-  use julienne_m, only : call_julienne_assert_, operator(.equalsExpected.)
+  use julienne_m, only : call_julienne_assert_, operator(.equalsExpected.), operator(.all.)
   implicit none
  
   private
@@ -75,7 +75,7 @@ elemental function y(x_in) result(a)
     type(tensor_t), intent(in) :: x_in
     type(tensor_t) a
     associate(x => x_in%values())
-      call_julienne_assert((lbound(x,1) .equalsExpected. 1) .also. (ubound(x,1) .equalsExpected. 2,"y(x) :: sufficient input"))
+      call_julienne_assert(.all. ([lbound(x,1),ubound(x,1)] .equalsExpected. [1,2]))
       a = tensor_t([saturated_mixing_ratio(x(1),x(2))])
     end associate
   end function