------- Comment #2 from janus at gcc dot gnu dot org 2010-07-22 21:21 -------
Reduced test case with the same output:
program bug18
type foo
integer :: i
end type foo
type bar
class(foo), allocatable :: bf
end type bar
class(foo), allocatable :: afab
type(bar) :: bb
allocate(foo :: afab)
call move_alloc(afab, bb%bf)
if (allocated(bb%bf)) then
write(0,*) 'Ok on move target'
else
write(0,*) 'Bad move target'
endif
if (.not.allocated(afab)) then
write(0,*) 'Ok on move source'
else
write(0,*) 'Bad move source'
endif
write(0,*) 'Test completed '
end program bug18
--
janus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2010-07-22 21:21:57
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45004
