Skip to content

Commit

Permalink
Merge pull request #754 from galacticusorg/fixWarningStatus
Browse files Browse the repository at this point in the history
Do not record that warnings have been found if the verbosity level is sufficient that they will be reported immediately
  • Loading branch information
abensonca authored Dec 9, 2024
2 parents 6477dfc + ae1c446 commit fa2734b
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions source/error.F90
Original file line number Diff line number Diff line change
Expand Up @@ -195,10 +195,10 @@ subroutine Warn_Char(message)
allocate(newWarning%next)
newWarning => newWarning%next
end if
newWarning%next => null ()
newWarning%message = message
newWarning %next => null ()
newWarning %message = message
warningsFound = .true.
end if
warningsFound=.true.
!$omp end critical (Warn)
return
end subroutine Warn_Char
Expand Down

0 comments on commit fa2734b

Please sign in to comment.