1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/claus.f b/gcc/testsuite/gfortran.dg/g77/claus.f
new file mode 100644
index 000000000..391d1cb9a
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/claus.f
@@ -0,0 +1,14 @@
+c { dg-do run }
+        PROGRAM TEST
+        REAL AB(3)
+        do i=1,3
+         AB(i)=i
+        enddo
+        k=1
+        n=2
+        ind=k-n+2
+        if (ind /= 1) call abort
+        if (ab(ind) /= 1) call abort
+        if (k-n+2 /= 1) call abort
+        if (ab(k-n+2) /= 1) call abort
+        END