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

--- Comment #4 from janus at gcc dot gnu.org ---
Slightly reduced test case:



  implicit none

  type Plane
    integer :: M(1,1)
  end type

  type(Plane), parameter :: planes(1) = [ Plane(1) ]
  integer                :: f(1,1)

  f = (planes(1)%M)

end

Reply via email to