http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59093
Dominique d'Humieres <dominiq at lps dot ens.fr> changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Last reconfirmed| |2013-11-12
Ever confirmed|0 |1
--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Reduced test:
module MAPL_LocStreamMod
implicit none
private
type, public :: MAPL_LocStream
private
type(MAPL_LocStreamType), pointer :: Ptr=>null()
end type MAPL_LocStream
type MAPL_Tiling
integer :: IM=0
end type MAPL_Tiling
type MAPL_LocStreamType
type(MAPL_Tiling), pointer :: Tiling(:) =>null() ! Grid
associated tilings
end type MAPL_LocStreamType
contains
subroutine MAPL_LocStreamGet(LocStream, GRIDIM)
type(MAPL_LocStream), intent(IN ) :: LocStream
integer, optional, pointer :: GRIDIM(:)
if (present(gridim)) then
gridim => locstream%Ptr%tiling(:)%im
end if
end subroutine MAPL_LocStreamGet
end module MAPL_LocStreamMod
