Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.
28592 Discussions

Pb in Debugger for checking derived types with pointer arrays put in COMMON

ESTIENNE_j_
Beginner
480 Views

I am not sure the pb is connected with one bug referenced on variables in the debugger. When defining a derived type in an include file so as:

INCLUDE File INC.F

TYPE T_SVD

SEQUENCE

INTEGER MxI,MxJ,MxK

COMPLEX,POINTER:: U(:,:),V(:,:),Z(:,:)

REAL,POINTER:: S(:)

END TYPE

TYPE
T_CBD

SEQUENCE

TYPE(T_SVD),POINTER:: R(:),Q(:)

TYPE(T_A),POINTER:: P(:)

END TYPE

COMMON/

COM_Blck/Blk,CBD,CBI

-------------------------------------------------------------------------------------

and using the values in a routine as follows

SUBROUTINE Test(...)

INCLUDE 'Inc.F'

ALLOCATE(Temp(CBD.R(p).MxK,CBI.Gamma(p).MxK))

Temp=MATMUL(TRANSPOSE(CBD.R(p).U),CBI.Gamma(p).U)

FORALL(k=1:SVD1.Mxk) Temp(k,1:)=CBD.R(p).S(k)*Temp(k,1:)

FORALL(k=1:SVD2.Mxk) Temp(1:,k)=CBI.Gamma(p).S(k)*Temp(1:,k)

CBI.Pi(i).Z=CBI.Pi(i).Z-

........

RETURN
END

the debugger says CBD is an undefined variable, although I know it is correctly allocated & working

The containt of CBD; for example CBD.R, ...cann't also inspected with the debugger. If such a type is definedinternally in the subroutine, it works correctly

Please answer


Thanks for your help

0 Kudos
3 Replies
Steven_L_Intel1
Employee
480 Views
Please report such problems to Intel Premier Support.
0 Kudos
jimdempseyatthecove
Honored Contributor III
480 Views

Your Inc.F has a type T_CBD and a common for CBD but no declaration of CBD

type(T_CBD) :: CBD

Jim

0 Kudos
ESTIENNE_j_
Beginner
480 Views
Sorry, I forgot it here, but this declaration is inside the code which doen't work. So this is not the problem
0 Kudos
Reply