https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65548

--- Comment #27 from Jürgen Reuter <juergen.reuter at desy dot de> ---
And Example #2 is:

module foo
  type :: t
     integer :: n
     character(32), dimension(:), allocatable :: md5
   contains
     procedure :: init => t_init
  end type t

contains

  subroutine t_init (this)
    class(t), intent(inout) :: this
    character(32), dimension(:), allocatable :: md5
    allocate (md5 (this%n), source=this%md5)
  end subroutine t_init


end module foo

$ gfortran -c bar.f90
bar.f90:14:0:

     allocate (md5 (this%n), source=this%md5)
 1
internal compiler error: Segmentation fault: 11

dreck.f90:14:0: internal compiler error: Abort trap: 6
gfortran: internal compiler error: Abort trap: 6 (program f951)

Reply via email to