No need for a temp here: SUBROUTINE S1(a,i,j,k,m) INTEGER :: a(3,6) a(1:3,m)=(/i,j,k/) END
-- Summary: unneeded temp Product: gcc Version: 4.4.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: jv244 at cam dot ac dot uk OtherBugsDependingO 36854 nThis: http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38115