diff --git a/src/common/m_helper_basic.f90 b/src/common/m_helper_basic.f90
index eaac4955d..4de21c528 100644
--- a/src/common/m_helper_basic.f90
+++ b/src/common/m_helper_basic.f90
@@ -49,7 +49,7 @@ end function f_approx_equal
     logical function f_is_default(var) result(res)
         real(wp), intent(in) :: var
 
-        res = f_approx_equal(var, real(dflt_real, wp))
+        res = f_approx_equal(var, dflt_real)
     end function f_is_default
 
     !> Checks if ALL elements of a real(wp) array are of default value.