25 Feb 2021 5:00
#27173
Hello, There is a bug in sdbg64 (version 8.70), that I want to report. I compiled the below code as a 64-bit program:
program Test_sdbg64
Implicit None
Character (LEN=24), External :: func
Character (LEN=40) :: res
Character (LEN= 1) :: lan
lan = 'E'
res = ' ' // func (lan)
write(*,*) res
end program
Function func (spr)
Implicit None
Character (LEN=24) :: func
Character (LEN= 1) :: spr
if (INDEX('Ee',spr) == 0) then ! 64-bit Debugger doesn't work
! if (.FALSE.) then ! 64-bit Debugger works
func = 'Case A '
else
func = 'Case B '
end if
end
When I open the 64-bit executable with the debugger and step into the func function, the curser goes directly to the end statement and it is not possible to put a breakpoint before that to follow the process. However, when I switch between the if statements, i.e.:
! if (INDEX('Ee',spr) == 0) then ! 64-bit Debugger doesn't work
if (.FALSE.) then ! 64-bit Debugger works
the debugger behaves normal. This is not the case with 32-bit version and the debugger starts from the start point of the fuction, as I step into it.