update fortran-yaml

fabm-model · Apr 15, 2024 · 7e071e9 · 7e071e9
1 parent 5c680c9
commit 7e071e9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/yaml/yaml_settings.F90 b/src/yaml/yaml_settings.F90
@@ -314,8 +314,8 @@ function get_path(self, include_file) result(path)
       path = ''
       value => self
       do while (associated(value))
-         if (allocated(value%path)) then
-            if (len(value%path) > 0 .and. include_file_) then
+         if (allocated(value%path) .and. include_file_) then
+            if (len(value%path) > 0) then
                path = value%path // ':' // path
                return
             end if