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