DO I = 1, N-1
         A(I) = A(I) + A(I+1)
       ENDDO
       DO I = 3, N
         A(I) = A(I-1) + A(I-2)
       ENDDO
       DO I = 1, N 
         A(J(I)) = B(I)
       ENDDO
     etwa: J(28) = J(42) = 17 
void f(double a[], double b[], int n)
{
   int i;
   for (i=0; i<n; i++)
   {
      a[i] = b[i];
   }
}
double a[100];
f(a+1, a, 99);
   for (i=0; i<n; i++)
   {
      if (b[i] < 0.0) break;
      a[i] = b[i];
   }
Compiler parallelisiert automatisch:
    X(1:M) = X(2:M+1)
Fortran90: keine LCDs!
    DO I = 1, 1000
      S    = A(I) + B(I)
      C(I) = 2 * S
    ENDDO
    SUM = 0.0
    DO I = 1, 4711
      SUM = SUM + A(I)
    ENDDO