src/mo_expression.F90

@@ -442,7 +442,7 @@ CONTAINS
       SELECT CASE (cqueue%list(i)%etype)
       CASE (VALUE)
         ALLOCATE (op_value)
-        op_value%val = REAL(cqueue%list(i)%val)
+        op_value%val = REAL(cqueue%list(i)%val, KIND=real_kind)
         expr_list%list(i)%p => op_value
       CASE (VARIABLE)
         ALLOCATE (op_variable)

test/fortran/test_expression.f90

@@ -50,7 +50,7 @@ CONTAINS
 
     CALL TAG_TEST("TEST_exp_erf")
     formula = expression("exp(1.) + erf(0.76)")
-    ref = EXP(1.) + ERF(0.76)
+    ref = EXP(1._wp) + ERF(0.76_wp)
     CALL formula%evaluate(ptr_val)
     CALL ASSERT_ALMOST_EQUAL(val, ref)
 

test/fortran/test_fortran_tools.f90

@@ -213,7 +213,7 @@ CONTAINS
     ptr => NULL()
     CALL TAG_TEST("Test_if_associated_false")
     output => if_associated(ptr)
-    CALL ASSERT_EQUAL(SIZE(output), 0)
+    CALL ASSERT_EQUAL(ASSOCIATED(output), .FALSE.)
 
     CALL TAG_TEST("Test_if_associated_false_else")
     output => if_associated(ptr, arr2)