Invalid Debug Information

Invalid Debug Information

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

2 posts / 0 new
Last post
For more complete information about compiler optimizations, see our Optimization Notice.

This is the sort of problem you should send to tech support - vf-support@compaq.com

Steve

Steve

Login to leave a comment.