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.

    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

Thank you, this is being investigated.