this should fail to compile INTEGER :: st1,i,a(10) st1(i)=F1(I) FORALL(i=1:10) a(i)=st1(i) write(6,*)a CONTAINS INTEGER FUNCTION F1(I) INTEGER, INTENT(IN) :: I F1=I*I*I END FUNCTION F1 END
-- Summary: non pure function in forall Product: gcc Version: 4.4.0 Status: UNCONFIRMED Keywords: accepts-invalid Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: jv244 at cam dot ac dot uk http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38733