gcc/testsuite/g77.f-torture/execute/claus.f

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