public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/66927] New: [6.0 regression] ICE in gfc_conf_procedure_call
@ 2015-07-18  9:40 juergen.reuter at desy dot de
  2015-07-18  9:41 ` [Bug fortran/66927] " juergen.reuter at desy dot de
                   ` (17 more replies)
  0 siblings, 18 replies; 19+ messages in thread
From: juergen.reuter at desy dot de @ 2015-07-18  9:40 UTC (permalink / raw)
  To: gcc-bugs

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

            Bug ID: 66927
           Summary: [6.0 regression] ICE in gfc_conf_procedure_call
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: juergen.reuter at desy dot de
  Target Milestone: ---

An ICE happens when trying to allocate an allocatable array with explicit array
bounds in combination with a source expression:

gfortran  -c processes.f90
processes.f90:31:0:

          source = t3%int_born%func ())
1
internal compiler error: in gfc_conv_procedure_call, at
fortran/trans-expr.c:5754

processes.f90:31:0: internal compiler error: Abort trap: 6

with the following code (maybe can be reduced even a little further):

module processes
  implicit none
  private

  type :: t1_t
     real :: p = 0.0
  end type t1_t

  type :: t2_t
     private
     type(t1_t), dimension(:), allocatable :: p
   contains
     procedure :: func => t2_func
  end type t2_t

  type :: t3_t
    type(t2_t), public :: int_born
  end type t3_t

contains

  function t2_func (int) result (p)
    class(t2_t), intent(in) :: int
    type(t1_t), dimension(:), allocatable :: p
  end function t2_func

  subroutine evaluate (t3)
    class(t3_t), intent(inout) :: t3
    type(t1_t), dimension(:), allocatable :: p_born    
    allocate (p_born(1:size(t3%int_born%func ())), &
         source = t3%int_born%func ())
  end subroutine evaluate

end module processes


^ permalink raw reply	[flat|nested] 19+ messages in thread
end of thread, other threads:[~2015-10-27  1:01 UTC | newest]

Thread overview: 19+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2015-07-18  9:40 [Bug fortran/66927] New: [6.0 regression] ICE in gfc_conf_procedure_call juergen.reuter at desy dot de
2015-07-18  9:41 ` [Bug fortran/66927] " juergen.reuter at desy dot de
2015-07-18  9:55 ` dominiq at lps dot ens.fr
2015-07-18  9:58 ` vehre at gcc dot gnu.org
2015-07-18 10:01 ` juergen.reuter at desy dot de
2015-07-18 13:01 ` vehre at gcc dot gnu.org
2015-07-21  7:58 ` [Bug fortran/66927] [6 Regression] " rguenth at gcc dot gnu.org
2015-08-06 10:09 ` vehre at gcc dot gnu.org
2015-10-06  8:40 ` vehre at gcc dot gnu.org
2015-10-16  8:34 ` rguenth at gcc dot gnu.org
2015-10-25 12:29 ` vehre at gcc dot gnu.org
2015-10-25 13:03 ` vehre at gcc dot gnu.org
2015-10-25 16:47 ` hjl.tools at gmail dot com
2015-10-25 18:04 ` vehre at gcc dot gnu.org
2015-10-26 13:04 ` vehre at gcc dot gnu.org
2015-10-26 22:43 ` juergen.reuter at desy dot de
2015-10-26 23:42 ` juergen.reuter at desy dot de
2015-10-27  0:55 ` kargl at gcc dot gnu.org
2015-10-27  1:01 ` juergen.reuter at desy dot de

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).