Bug in initialization of components

When a derived type has some allocatable components and some other components that are given default initialization, the initialization does not function correctly with PGI 7.1.x

program showbug
   implicit none
   type ctrl
      integer :: bits = 32
      integer,dimension(:),allocatable :: iarr
   end type ctrl
   type(ctrl) :: control
!
   write(*,*)control%bits       ! should print 32, but prints 0
!
end program showbug

Hi N. Shamsundar,

Thank you for the report. Fortunately, this issue had been reported to us earlier and has been fixed as of the 8.0 release.

% cat test.f90
program showbug
   implicit none
   type ctrl
      integer :: bits = 32
      integer,dimension(:),allocatable :: iarr
   end type ctrl
   type(ctrl) :: control
!
   write(*,*)control%bits       ! should print 32, but prints 0
!
end program showbug

% pgf90 -V8.0-1 test.f90
% a.out
           32
%

Best Regards,
Mat