Hi,
I am using Visual Fortran 6.6.A. I am getting the following problem.
I have the following module
_____________________________________________________
module TypeToTypes
implicit none
type SimpleType
integer :: value
end type
type TypeToType
type(SimpleType) :: MySimpleType
type(TypeToType),pointer :: LeftTypeToType
type(TypeToType),pointer :: RightTypeToType
end type
end module
_____________________________________________________
And the following main program
_____________________________________________________
Program main
use TypeToTypes
implicit none
type(TypeToType) :: CentreType
type(TypeToType),target :: LeftType
type(TypeToType),target :: RightType
LeftType%MySimpleType%value = 1
CentreType%MySimpleType%value = 2
RightType%MySimpleType%value = 3
allocate(CentreType%LeftTypeToType, CentreType%RightTypeToType)
CentreType%LeftTypeToType => LeftType
CentreType%RightTypeToType => RightType
call testpointers(CentreType)
end
subroutine testpointers(CentreType)
use TypeToTypes
implicit none
type(TypeToType) :: CentreType
CentreType%MySimpleType%value = 3
return
end
_____________________________________________________
If I run the debug, when I get to the function testpointers, in the debug window if I try and expand CentreType, for LeftTypeToType and RightTypeToType it appears the messsage "Invalid Debug Information". Can anybody help me. Is there any way of looking at the pointers. I forgot the optimaziation is all off.
Thanks Luca
