------- Additional Comments From pinskia at gcc dot gnu dot org  2005-09-17 
01:49 -------
Confirmed, self contained testcase:
program test
  type t
    integer :: a = 3
  end type t
  type(t), allocatable :: q(:)

  allocate(q(1))
  if (q(1)%a .ne. 3) call abort ()
end program test

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
           Keywords|                            |wrong-code
   Last reconfirmed|0000-00-00 00:00:00         |2005-09-17 01:49:34
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23924

Reply via email to