[Bug fortran/40850] double free in nested types with allocatable components

[janus at gcc dot gnu dot org]

------- Comment #5 from janus at gcc dot gnu dot org  2009-12-07 21:00 -------
Further reduced test case:


  type t
    integer, allocatable :: d(:)
  end type
  type(t), allocatable :: a(:)

  allocate(a(2))
  call sub( (/ a /) )

contains

  subroutine sub(b)
    type(t) :: b(:)
  end subroutine

end


The dump still has more than 200 lines and five __builtin_free's.


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |janus at gcc dot gnu dot org
   Last reconfirmed|2009-12-06 18:15:24         |2009-12-07 21:00:41
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40850