istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

src/gray_errors.f90: fix possible null prt dereference

Browse Source
This commit is contained in:
Michele Guerini Rocco 2025-03-21 08:30:20 +01:00
parent 65b9d129ea
commit c3a3972378
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/gray_errors.f90
View File

@ -142,8 +142,11 @@ contains
integer, intent(in), optional :: subcase integer, intent(in), optional :: subcase
integer(kind=gray_error) :: raise_error integer(kind=gray_error) :: raise_error
raise_error = ibset(error, spec%offset & if (present(subcase)) then
+ merge(subcase, 0, present(subcase))) raise_error = ibset(error, spec%offset + subcase)
else
raise_error = ibset(error, spec%offset)
end if
end function raise_error end function raise_error