mecej4
Joined: 31 Oct 2006 Posts: 1896
|
Posted: Mon Sep 05, 2016 4:18 pm Post subject: Short program exposes SDBG64 bug |
|
|
Here is a short "reproducer" program that serves only to pinpoint a bug in SDBG64. Much code that was originally in the program was removed and what is left does nothing of any other use than to point out the bug.
When the code is compiled with FTN95 8.05-64 and run under SDBG64, stepping into the subroutine causes a puzzling error message from the VC RTL to pop up: "Run-Time Check Failure #3 - The variable 'base_address' is being used without being initialized."
The problem does not occur in the 32-bit mode.
Code: | program xdnls
implicit none
double precision :: c(3,2)
double precision :: t(3) = (/ 1d0, 2d0, 3d0 /)
!
call fitfun(c)
stop
!
CONTAINS
subroutine fitfun(phi)
implicit none
double precision :: phi(3, 2)
!
phi(:, 1) = 1 - exp(-t)
return
end subroutine fitfun
!
end program xdnls
|
|
|