BUG: Derived-Type with Pointer Expands Incorrectly in Debugger

MORE INFORMATION

Steps to Reproduce Problem

Build the following sample code in Developer Studio with the /Zi compiler option, and then perform the following steps:

1. Begin a debugging session; On the Developer Studio Debug menu, click Build, and then click Step Into.
2. Step through the main program beyond the allocate statement.
3. In a watch window, type the variable name root, and press the ENTER key.
4. View the members of root. Click each of the (+) nesting symbols to expand each level of the derived-type object root.

Expanding root yields root%B%L%B%L%B%L instead of the correct pointer to member structure of root%B%l%i. Typing in the correct pointer to member structure in a watch window yields the following message in the corresponding value column:

Sample Code

C Compile options needed: /Zi

      module types
        type t_leaf
          integer i
        end type t_leaf

        type t_branch
          type (t_leaf), pointer :: l
        end type

        type t_root
          type (t_branch) b
        end type
      end module types

      program main
        use types
        implicit none

        type (t_root) root
        allocate( root%b%l )

        root%b%l%i = 5
      end program main