crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 05:35:49 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix infinite loop bug in error module. Closes #150.

Browse source
This commit is contained in:
Paul Romano 2013-02-25 10:17:46 -05:00
parent e6aee9d1c0
commit f85ac4038c
1 changed files with 22 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

28
src/error.F90
View file

@ -50,9 +50,17 @@ contains
i_end = i_start + index(message(i_start+1:i_start+line_wrap-indent+1), &
' ', BACK=.true.)
! Write up to last space
write(OUTPUT_UNIT, fmt='(A/A)', advance='no') &
message(i_start+1:i_end-1), repeat(' ', indent)
if (i_end == i_start) then
! This is a special case where there is no space
i_end = i_start + line_wrap - indent + 1
write(ERROR_UNIT, fmt='(A/A)', advance='no') &
message(i_start+1:i_end-1), repeat(' ', indent)
i_end = i_end - 1
else
! Write up to last space
write(OUTPUT_UNIT, fmt='(A/A)', advance='no') &
message(i_start+1:i_end-1), repeat(' ', indent)
end if
! Advance starting position
i_start = i_end
@ -109,9 +117,17 @@ contains
i_end = i_start + index(message(i_start+1:i_start+line_wrap-indent+1), &
' ', BACK=.true.)
! Write up to last space
write(ERROR_UNIT, fmt='(A/A)', advance='no') &
message(i_start+1:i_end-1), repeat(' ', indent)
if (i_end == i_start) then
! This is a special case where there is no space
i_end = i_start + line_wrap - indent + 1
write(ERROR_UNIT, fmt='(A/A)', advance='no') &
message(i_start+1:i_end-1), repeat(' ', indent)
i_end = i_end - 1
else
! Write up to last space
write(ERROR_UNIT, fmt='(A/A)', advance='no') &
message(i_start+1:i_end-1), repeat(' ', indent)
end if
! Advance starting position
i_start = i_end