------- Comment #8 from tkoenig at gcc dot gnu dot org 2006-05-09 21:27 -------
Eric,
when you work on this, watch out for the following test case:
PROGRAM MAIN
TYPE foo
INTEGER, DIMENSION(:), ALLOCATABLE :: array
END TYPE foo
type(foo),pointer,dimension(:) :: mol
ALLOCATE (mol(1))
ALLOCATE (mol(1)%array(5))
ALLOCATE (mol(1)%array(5),stat=i)
if (i == 0) call abort
END PROGRAM MAIN
This is the reverse (more or less) of PR 27470.
Thomas
--
tkoenig at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |tkoenig at gcc dot gnu dot
| |org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20541
