!This used to ICE as we chose the wrong type for the! temporary to hold type%x! fortran/18157MODULE bugIMPLICIT NONE TYPE::my_typeREAL::xEND TYPE TYPE(my_type),DIMENSION(3)::tCONTAINS SUBROUTINE fooINTEGER,DIMENSION(8)::c(3)t(c)%x=t(c)%xRETURN END SUBROUTINE fooEND MODULE bug