gcc/testsuite/gfortran.dg/g77/claus.f

   1 c { dg-do run }
   2         PROGRAM TEST
   3         REAL AB(3)
   4         do i=1,3
   5          AB(i)=i
   6         enddo
   7         k=1
   8         n=2
   9         ind=k-n+2
  10         if (ind /= 1) call abort
  11         if (ab(ind) /= 1) call abort
  12         if (k-n+2 /= 1) call abort
  13         if (ab(k-n+2) /= 1) call abort
  14         END