dimension i2(15,10), i1(15) type a sequence integer k end type a type(a) :: a1(10), a2(5,5)
a1 = transfer (i1(1:10), a1) end yields: [EMAIL PROTECTED] tests]$ ~/src/gcc40/build/gcc/f951 bug.f90 MAIN__ bug.f90:15: fatal error: gfc_todo: Not Implemented: Scalarization of non-elemental intrinsic: __transfer1 compilation terminated. [EMAIL PROTECTED] tests]$ -- Summary: Not Implemented: Scalarization of non-elemental intrinsic Product: gcc Version: 4.1.0 Status: UNCONFIRMED Keywords: ice-on-valid-code Severity: normal Priority: P2 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: tobi at gcc dot gnu dot org CC: gcc-bugs at gcc dot gnu dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=21905