[Ad-dev] [openAD] #211: temporaries created for pointers are given integer type

[OpenAD]

#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