src/gray_errors.f90: fix possible null prt dereference

2025-03-21 08:30:20 +01:00 · 2025-03-21 08:30:20 +01:00 · c3a3972378
commit c3a3972378
parent 65b9d129ea
1 changed files with 5 additions and 2 deletions
--- a/src/gray_errors.f90
+++ b/src/gray_errors.f90
@ -142,8 +142,11 @@ contains
    integer,                  intent(in), optional :: subcase
    integer(kind=gray_error)             :: raise_error

-    raise_error = ibset(error, spec%offset &
-                               + merge(subcase, 0, present(subcase)))
+    if (present(subcase)) then
+      raise_error = ibset(error, spec%offset + subcase)
+    else
+      raise_error = ibset(error, spec%offset)
+    end if
  end function raise_error