transfer of allocation status of zero sized tr18581 components on assignment

[Alexei Matveev]

Hi, All,

I assume it makes no sense to report a bug against 4.3.2 (Debian Lenny)
anymore? The program prints "F" for false, though the newer version of Gfortran
and Intel compiler correctly print "T".

What would be a "future proof" workaround for this bug? I have to stick to
Debian Lenny for some time.

Alexei

program prog

  implicit none

  type :: tr15581
     real, allocatable :: m(:)
  end type tr15581

  type(tr15581) :: a, b

  allocate(a%m(0))
  b = a
  print *, allocated(b%m)
end program prog