This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

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


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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]