[Bug fortran/38733] New: non pure function in forall

[jv244 at cam dot ac dot uk]

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