------- 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