FIXUP: Implement prif_get_team

Fortran does not guarantee short-circuit evaluation of boolean expressions, and this one was crashing with flang-new
BerkeleyLab · Jan 14, 2025 · 75a924a · 75a924a
1 parent 359063c
commit 75a924a
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/caffeine/teams_s.f90 b/src/caffeine/teams_s.f90
@@ -80,7 +80,9 @@
   end procedure
 
   module procedure prif_get_team
-    if (.not. present(level) .or. level == PRIF_CURRENT_TEAM) then
+    if (.not. present(level)) then
+      team = current_team
+    else if (level == PRIF_CURRENT_TEAM) then
       team = current_team
     else if (level == PRIF_PARENT_TEAM) then
       team = prif_team_type(current_team%info%parent_team)