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

Reply via email to