Skip to content

Commit

Permalink
fix: Do not record that warnings have been found if the verbosity lev…
Browse files Browse the repository at this point in the history
…el is sufficient that they will be reported immediately
  • Loading branch information
abensonca committed Dec 6, 2024
1 parent 10b99e5 commit ae1c446
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 ae1c446

Please sign in to comment.