[Bug fortran/59093] internal compiler error: Segmentation fault compiling F90 File

[dominiq at lps dot ens.fr]

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