9 Mar 2024 1:10
#31245
When debugging with SDBG64, I sometimes see that when the source code pane has its width reduced using the mouse, parts of a long line of source code that are now beyond the right edge of the pane are then added to the end of the next line, if that next line is short.
Example:
program sdbg64dispbug
implicit none
logical :: unconfined = .false.
integer :: Ioptpr(5) = [1,2,3,4,5]
integer ltime, lnri
real wrelaxp, wrelaxh
IF(unconfined) THEN
CALL damper
!***..**restore arguments later F90
!.. if(unconfined) call damper(wrelaxp,wrelaxh)
IF(Ioptpr(3) >= 1) WRITE(*, 35) Ltime, Lnri, wrelaxp, wrelaxh
35 FORMAT(I4,I3,' P under relaxation factor:',F6.2,'; H under relaxation factor:',F6.2)
Ioptpr = 2*Ioptpr
ENDIF
end program
subroutine damper
end
Compile with /debug /64, link, and run in SDBG64. Adjust the width of the source code pane such that line-11 gets cut off beyond '...Lnri'. Now view line-13. You will see ',F6.2)' appended. The code appears to be
Ioptpr = 2*Ioptpr,F6.2)
instead of
Ioptpr = 2*Ioptpr
Another minor defect: all lines of code have an extra blank displayed before column-1 of the source code.
A screenshot of this text bleeding can be seen at http://pasteboard.co/oXRbwGVgqOjP.jpg .
