Conference nicctr::kap-users

387.0. "kf90 problem with forall" by HERON::BLOMBERG (Trapped inside the universe) Wed May 28 1997 07:45

    
    What's wrong the the following? KAP 3.1a k280719 for f90 says
         ###         forall (i=1:n, j=1:n) c(i,j)=sum(a(i,:)*b(:,j))
         ### in line 18 procedure SUB of file tmp2.for ### 
    error: FORALL index "J" must appear in left-hand-side of assignment.
    error: FORALL index "I" must appear in left-hand-side of assignment.
    
    Plain f90 has no problems with he code.
    
            real a(10,10),b(10,10),c(10,10)
            a=1.0
            b=1.0
            call sub(10,a,b,c)
            type *,c(1,1)
            end
    
    
            subroutine sub(n,a,b,c)
            integer i,j,n
            real a(n,n),b(n,n),c(n,n)
    
            forall (i=1:n, j=1:n) c(i,j)=sum(a(i,:)*b(:,j))
    
            end
    
    /Ake