------- Comment #3 from janus at gcc dot gnu dot org  2009-10-16 21:04 -------

> AND ALSO FOR:
> 
> type t0
> end type t0
> type(t0), allocatable :: m(:)
> allocate(t0 :: m(3))
> end

No, this one actually works (since 'm' is not a scalar):

  if (m.data != 0B)
    {
      __builtin_free ((void *) m.data);
    }
  m.data = 0B;


-- 


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

Reply via email to