[Bug fortran/27470] [4.1/4.2 regression] wrong memory allocator for derived types

[tkoenig at gcc dot gnu dot org]

------- Comment #3 from tkoenig at gcc dot gnu dot org  2006-05-08 21:06 -------
Here's a test case that does not require transfer:


  TYPE foo
    INTEGER, DIMENSION(:), POINTER :: array
  END TYPE foo

  type(foo),allocatable,dimension(:) :: mol

  ALLOCATE (mol(1))
  ALLOCATE (mol(1)%array(5))
  ALLOCATE (mol(1)%array(5))

  END

This shouldn't error out with "Attempting to allocate already allocated array".


-- 


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