[Bug fortran/59781] [4.7/4.8/4.9 Regression] [F03] Incorrect initialisation of derived type

["janus at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|---                         |4.9.0
            Summary|[4.9 Regression] [F03]      |[4.7/4.8/4.9 Regression]
                   |Incorrect initialisation of |[F03] Incorrect
                   |derived type                |initialisation of derived
                   |                            |type

--- Comment #3 from janus at gcc dot gnu.org ---
I verified that the problem is not specific to ISO_C_BINDING and occurs also
when replacing type(c_ptr) by some other derived type.

The following variant works with 4.4 (printing '1' as expected), but fails with
4.6 and above (printing some random number):


  implicit none

  type t1
    integer :: s
  end type

  type t2
    type(t1) :: state = t1(1)
    real, allocatable :: store(:)
  end type

  call test

contains

  subroutine test
    type(t2) :: rng
    print *,rng%state%s
  end subroutine

end