[Bug fortran/59781] [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
----------------------------------------------------------------------------
           Keywords|                            |wrong-code
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2014-01-12
                 CC|                            |janus at gcc dot gnu.org
            Summary|Incorrect initialisation of |[4.9 Regression] [F03]
                   |derived type                |Incorrect initialisation of
                   |                            |derived type
     Ever confirmed|0                           |1

--- Comment #1 from janus at gcc dot gnu.org ---
(In reply to james.s.spencer from comment #0)
> See also discussion at
> https://groups.google.com/forum/#!topic/comp.lang.fortran/WogpvhUny4c, where
> Janus posted a smaller example which breaks under gfortran trunk.

namely this one (which apparently is a regression in 4.9 trunk):

module hilbert_space
  use, intrinsic :: iso_c_binding
  implicit none

  type dSFMT_t
    type(c_ptr) :: dSFMT_state = c_null_ptr
    real(c_double), allocatable :: random_store(:)
  end type

contains

  subroutine dSFMT_init (arg)
    type(dSFMT_t) :: arg
  end subroutine

  subroutine test_rng()
    type(dSFMT_t) :: rng
    call dSFMT_init (rng)
  end subroutine

end module