[Ad-dev] [openAD] #211: temporaries created for pointers are given integer type
OpenAD
trac at mcs.anl.gov
Thu Apr 1 01:20:58 CDT 2010
#211: temporaries created for pointers are given integer type
-------------------------+--------------------------------------------------
Reporter: lyonsam | Owner: utke
Type: defect | Status: new
Priority: major | Milestone:
Component: xaifBooster | Keywords:
-------------------------+--------------------------------------------------
== Example ==
centrm/data_centrm_C.f90:
{{{
type(active) :: XN(:,:)
ALLOCATABLE XN
TARGET XN
}}}
== centrm/accel_I.f90 ==
{{{
type(active) :: XNTN(:,:)
POINTER XNTN
...
INTEGER(w2f__i8) OpenAD_dly_21(:)
ALLOCATABLE OpenAD_dly_21
...
XNTN => XN(:,IFTG:)%v
...
OpenAD_dly_21 = (XNTN(I,:IGMT)%v*SCAL(I)%v)
}}}
--
Ticket URL: <http://trac.mcs.anl.gov/projects/openAD/ticket/211>
OpenAD <http://www.mcs.anl.gov/openad>
Bug tracking for OpenAD components
More information about the Ad-dev
mailing list