Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.
Announcements
FPGA community forums and blogs on community.intel.com are migrating to the new Altera Community and are read-only. For urgent support needs during this transition, please visit the FPGA Design Resources page or contact an Altera Authorized Distributor.
29281 Discussions

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

ESTIENNE_j_
Beginner
733 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
733 Views
Please report such problems to Intel Premier Support.
0 Kudos
jimdempseyatthecove
Honored Contributor III
733 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
733 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